One rainy gloomy evening when all modules hid in the nearby cafes to drink hot energetic cocktails, the Hexadecimal virus decided to fly over the Mainframe to look for a Great Idea. And she has found one!Why not make her own Codeforces, with blackjack and other really cool stuff? Many people will surely be willing to visit this splendid shrine of high culture.In Mainframe a standard pack of 52 cards is used to play blackjack. The pack contains cards of 13 values: 2, 3, 4, 5, 6, 7, 8, 9, 10, jacks, queens, kings and aces. Each value also exists in one of four suits: hearts, diamonds, clubs and spades. Also, each card earns some value in points assigned to it: cards with value from two to ten earn from 2 to 10 points, correspondingly. An ace can either earn 1 or 11, whatever the player wishes. The picture cards (king, queen and jack) earn 10 points. The number of points a card earns does not depend on the suit. The rules of the game are very simple. The player gets two cards, if the sum of points of those cards equals n, then the player wins, otherwise the player loses.The player has already got the first card, it's the queen of spades. To evaluate chances for victory, you should determine how many ways there are to get the second card so that the sum of points exactly equals n.

The only line contains n (1 ≤ n ≤ 25) — the required sum of points.

Print the numbers of ways to get the second card in the required way if the first card is the queen of spades.

NoteIn the first sample only four two's of different suits can earn the required sum of points.In the second sample we can use all tens, jacks, queens and kings; overall it's 15 cards, as the queen of spades (as any other card) is only present once in the pack of cards and it's already in use.In the third sample there is no card, that would add a zero to the current ten points.

program Problem_A;

{$APPTYPE CONSOLE}

const g : array[-9..15]of longint = (0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 4, 4, 4, 4, 4, 4, 4, 4, 4, 15, 4, 0, 0, 0, 0);

var n : longint;

begin
   assign(input, '');
   assign(output, '');
   readln(n);

   n := n - 10;

   writeln(g[n]);
   close(input);
   close(output);
end.

program A;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  I, N: Longint;

begin
  Read(N);
  case N - 10 of
    1..9, 11: Writeln(4);
    10: Writeln(15);
    else Writeln(0);
  end;
end.

program A_;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
i,n:integer;
begin
 //assign(input,'input.txt'); assign(output,'output.txt');
 //reset(input); rewrite(output);
 readln(n);
 if n=20 then begin writeln(15); halt; end;
 if (n<=10)or(n>=22) then writeln(0) else writeln(4);

end.

var
  n:longint;
begin
  {reset(input,'input.txt');
  rewrite(output,'output.txt'); }
  read(n);
  n:=n-10;
  if n=10 then write(15) else
  if n in[1..11] then write(4) else write(0);
end.

var a,b,n:longint;
begin
	readln(n);
    if (n<=10) or (n>=22) then
    begin
    	writeln('0');
        halt;
    end;
    a:=n-10;
    if (a<>10) then
    	b:=4;
    if (a=10) then
    	b:=15;
    writeln(b);
end.

var n,s:longint;
 begin
  read(n);
  s:=n-10;
  if (s>11) or (n<=10) then begin writeln(0); exit; end;
  if (s=10) then writeln(15)
  else writeln(4);
 end.

  const a:array[1..11]of integer=(4,4,4,4,4,4,4,4,4,15,4);
  var n:integer;
begin
  readln(n);
  if (n-10<1)or(n-10>11)
    then writeln(0)
    else writeln(a[n-10]);
end.

Var n , i , kq : Longint;

Begin
Readln(n);
If (n <= 10) or (n >= 22) then Writeln('0') else
    Begin
    kq := 4;
    If n = 20 then kq := 15;
    Writeln(kq);
    End;
End.

var
n,ans:longint;
begin
  read(n);
  n:=n-10;
  if n<1 then ans:=0  else
  if n>11 then ans:=0  else
  if n=10 then ans:=15 else
    ans:=4;
  writeln(ans);
end.

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var n : longint;
begin
//  reset(input,'input.txt');
//  rewrite(output,'output.txt');

  read(n);
  n := n - 10;
  if (n <= 0) or (n > 11) then
  begin
    write(0);
    halt(0);
  end;

  if (n < 10) or (n = 11) then
    write(4)
  else
    write(15);

 // close(input);
// close(output);
end.

Program a104;
const
a:array [1..5] of byte=(0,12,13,14,15);
b:array [1..10] of byte=(1,2,3,4,5,6,7,8,9,11);
c=10;
Var
n,m,i:integer;
Begin
Readln(n);
m:=n-10;
For i:=1 to 5 do
 if m=a[i] then Writeln(0);
For i:=1 to 10 do
 if m=b[i] then Writeln(4);
if m=c then Writeln(15);
if m<0 then Writeln(0);
end.

var
	n:integer;
begin
	read(n);
	if (n<=10) or (n>21) then
	begin
		writeln(0);
	end else
	if (n=20) then
	begin
		writeln(15);
	end else
	begin
		writeln(4);
	end;
end.

program blackjack;

var
    n : byte;

begin
    read(n);

    n := n - 10;

    if (n = 0) or (n > 11) then write('0')
    else if (n = 10) then write ('15')
    else write('4');

end.

program zzz;

type int = longint;

var n:int;

begin
	readln(N);

	case n-10 of
		1:writeln(4);
		2:writeln(4);
		3:writeln(4);
		4:writeln(4);
		5:writeln(4);
		6:writeln(4);
		7:writeln(4);
		8:writeln(4);
		9:writeln(4);
		10:writeln(15);
		11:writeln(4)
	else writeln(0)
	end;
end.

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var n:integer;

begin
  readln(n);
  n:=n-10;
  if ((n>=1) and (n<=9)) or(n=11) then
  begin
    writeln(4);
    halt;
  end;
  if n=10 then
  begin
    writeln(15);
    halt;
  end;
  writeln(0);
  { TODO -oUser -cConsole Main : Insert code here }
end.

program blackJack;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var n,k,i:integer;

begin
  { TODO -oUser -cConsole Main : Insert code here }
  readln(n);
  if (n<11) or (n>21) then
   begin
     writeln(0);
     exit;
   end;
   for i:=1 to 11 do
    begin
      k:=10;
      k:=k+i;
       if k=n then
        begin
         k:=i;
         break;
        end;
    end;
    if (k<10) or (k=11) then
       writeln(4)
    else
    if k=10 then
       writeln(15);
end.

uses math;
var
  arr:array[0..5,0..5] of longint;
  i,n,r:longint;
begin
   readln(n);
   n:=n-10;
   if (n=1) or (n=11) then
      r:=4;
   if n=10 then
      r:=r+11;
   for i:=2 to 10 do
   if n=i then
      r:=r+4;
   writeln(r);
end.

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  s:string;
  i,n,k,k1:Integer;
begin
  Readln(n);
  for i:=1 to 11 do
    begin
      if (10+i=n) then
        begin
          if (i=10) then Inc (k,15)
            else if (i=10) then Inc (k,16)
              else Inc (k,4);
        end;
    end;
  write(k);
  Readln;
  Readln;
end.

var n,r:LongInt;
begin
  //reset(input,'input.txt');
  //rewrite(output,'output.txt');
  Readln(n);
  r:=0;
  case n of
  11..19:r:=4;
  20:r:=15;
  21:r:=4;
  end;
  Writeln(r);
end.

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var n:integer;

begin
  { TODO -oUser -cConsole Main : Insert code here }
  read(n);
  if n in [1..10] then
    write('0')
      else
        case n of
          11:write('4');
          12:write('4');
          13:write('4');
          14:write('4');
          15:write('4');
          16:write('4');
          17:write('4');
          18:write('4');
          19:write('4');
          20:write('15');
          21:write('4');
          22:write('0');
          23:write('0');
          24:write('0');
          25:write('0');
        end;
end.

var ko,a,n:longint;
 begin
  readln(n);
  ko:=0;
  if n=20 then ko:=15;
  if n=10+11 then inc(ko,4)else
  if n=10+1 then inc(ko,4);
  for a:=2 to 9 do
  if n=10+a then inc(ko,4);
 writeln(ko);
end.

{$apptype console}
{$R+,S+,I+,Q+}
const
     inf = 'input.txt';
     outf = 'output.txt';
var
 n:longint;
begin
 //reset(input,inf);
 //rewrite(output,outf);
 read(n);
 if (n <= 10) or (n > 21) then writeln(0) else
 if n = 20 then writeln(15) else writeln(4);
end.

program funktions;
const maxlen = 100000;
      maximum=1000000001;

Type TData = array [0..maxlen] of longint;

function max(a,b:longint):longint;
Begin
  if (a>b) then max:=a
  else max:=b;
end;

function min (a,b:longint):longint;
begin
  min:=a+b-max(a,b);
end;

Function max_array(P:TData; l,r:longint):longint;
Var i,m,j:longint;
Begin
  m:=0;
  For i:= l to r do begin
    if (P[i]>m) then begin
      m:=P[i];
      j:=i;
    end;
  End;
  max_array:=j;
End;

Function min_array(P:TData; l,r:longint):longint;
Var i,mn,j:Longint;
Begin
  mn:=Maximum;
  for i:=l to r do begin
    If (P[i]<mn) then begin
      mn:=P[i];
      j:=i;
    End;
  End;
  min_array:=j;
End;

procedure fill(P:TData; k:longint);
Var i:longint;
Begin
  for i:= 0 to maxlen do begin
    P[i]:=k;
  End;
End;

procedure swap(Var a,b:longint);
Var h:longint;
Begin
  h:=a; a:=b; b:=h;
End;

Function GCD(a,b:longint):longint;
Begin
  If (b>a) then Swap(a,b);
    If (b=0) then GCD:=a
    else GCD:=GCD(b, a  mod b);
End;

procedure read_array( var P:TData; n:longint);
var i:longint;
begin

  for i:=1 to n do read(P[i]);
end;

procedure readln_array(var P:TData; n:longint );
var i:longint;
begin
  for i:=1 to n do readln(P[i]);
end;

procedure writeln_array(var P:TData; n:longint );
var i:longint;
begin
  for i:=1 to n do writeln(P[i]);
end;

procedure write_array(var P:TData; n:longint );
var i:longint;
begin
  for i:=1 to n do begin
    write(P[i]);  write(' ');
  end;
end;

function sum( var P:TData; l,r:longint):longint;
var s,i:longint;
begin
  s:=0;
  for i:=l to r do s:=s + P[i];
  sum:=s;
end;

procedure QSort( var P:TData; l,r:longint);
var i,j,x:longint;
begin

  x:=P[ l+ random(r-l+1) ];
  i:=l; j:=r;

  if (r > l  )  then begin
    repeat
      while(P[i]<x) do inc(i);
      while(P[j]>x) do dec(j);

      if(j>=i) then begin
        swap(P[i], P[j]);
        inc(i); dec(j);
      end;

    until(i>j);

    QSort(P,l,j); QSort(P,i,r);
  end;

end;

function LCM(a,b:longint):longint;
begin
  LCM:=(a*b) mod (GCD(a,b) );
end;

function number_element(P:TData; k,l,r:longint):longint;
Var i,count:longint;
Begin
  count:=0;
  For i:=l to r do begin
    if k=P[i] then inc(count);
  End;
  number_element:=count;
End;

procedure NO;
begin
  writeln('NO');
end;

procedure YES;
begin
  writeln('YES');
end;

var
 n,i,res:longint;

begin
  readln(n);

  if (n<=10) or (n>21) then res:=0;
  if (n>10) and (n<20) then res:=4;
  if (n=20) then res:=15;
  if (n=21) then res:=4;
  writeln(res);

end.

var a,b,n:longint;
begin
	readln(n);
    if (n<=10) or (n>=22) then
    begin
    	writeln('0');
        halt;
    end;
    a:=n-10;
    if (a<>10) then
    	b:=4;
    if (a=10) then
    	b:=15;
    writeln(b);
end.

  const a:array[1..11]of integer=(4,4,4,4,4,4,4,4,4,15,4);
  var n:integer;
begin
  readln(n);
  if (n-10<1)or(n-10>11)
    then writeln(0)
    else writeln(a[n-10]);
end.

var n:longint;
    i,a,b:integer;
begin
readln(n);
if n<=10 then writeln(0) else if n>21 then writeln(0) else
begin
n:=n-10;
if n=10 then n:=15 else n:=4;
writeln(n);
end;
end.

//104A
var
  n:longint;
begin
  read(n);
  case n of
    1..10:write(0);
    11..19:write(4);
    20:write(15);
    21:write(4);
    22..25:write(0);
  end;
end.

var n:byte;
begin
readln(n);
case n of
11..19:writeln('4');
20:writeln('15');
21:writeln('4');
else writeln('0');
end;
end.

program bangke;
var
        x, a : longint;
begin
        readln (x);
        a := x - 10;
        if a = 0 then writeln ('0')
        else if (x <= 21) and (a > 0) then
                begin
                        if a = 10 then writeln (4*4-1)
                                else writeln ('4');
                end
                else writeln ('0');

end.

var n:longint;
begin
  readln(n);
  if (n<=10) or (n>21) then begin
    write(0); halt;
  end;
  if (n<20) or (n=21) then begin
    write(4); halt;
  end;
  if n=20 then write(15);
end.

var n,s:longint;
 begin
  read(n);
  s:=n-10;
  if (s>11) or (n<=10) then begin writeln(0); exit; end;
  if (s=10) then writeln(15)
  else writeln(4);
 end.

var
        n,ans:longint;

begin
read(n);
dec(n,10);
if n = 10 then ans := 15 else
if n = 11 then ans := 4 else
if (n < 1) or (n > 11) then ans := 0 else ans := 4;
write(ans);
end.

const a:array[1..11] of integer = (4,4,4,4,4,4,4,4,4,15,4);
var n:integer;
begin
readln(n);
if (n>10) and (n<22) then writeln(a[n-10])
        else writeln(0);
end.

program Project104A;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  n, k: integer;

begin
  Readln(n);
  if (n <= 10) or (n >= 21) then
    k := 0;
  if (n >= 11) and (n <= 19) then
    k := 4;
  if n = 20 then
    k := 15;
  if n = 21 then
    k := 4;
  Writeln(k);
  readln;
  readln;
end.

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  n, r: integer;

begin
  readln(n);

  r := n - 10;
  if (r <= 0) or (r > 11) then
    write(0)
  else
    if (r = 10) then
      write(15)
    else
      write(4);
end.

var n:longint;
begin
  readln(n);
  dec(n,10);
  if(0<n)and(n<10)then
    writeln(4)
  else if n=10 then
    writeln(15)
  else if n=11 then
    writeln(4)
  else
    writeln(0);
end.

var n,i :longint;
    a :array[0..12] of longint;
begin
    read(n);
    if n<=10 then begin write('0');halt(0);end;
    for i:=2 to 9 do
        a[i]:=4;
    a[1]:=4;
    a[10]:=15;
    a[11]:=4;
    write(a[n-10]);
end.

uses math;
var
  arr:array[0..5,0..5] of longint;
  i,n,r:longint;
begin
   readln(n);
   n:=n-10;
   if (n=1) or (n=11) then
      r:=4;
   if n=10 then
      r:=r+11;
   for i:=2 to 10 do
   if n=i then
      r:=r+4;
   writeln(r);
end.

const
    a:array[1..11] of longint=(4,4,4,4,4,4,4,4,4,15,4);
var
    n:longint;
begin
    read(n);
    if (n<10) or (n>21) then write(0) else write(a[n-10]);
end.

uses math;
var n:integer;
     f:text;
begin
     read(n);
     n:=max(n-10,0);
     if n in[1..9,11] then write(4)
     else
          if n=10 then write(15)
          else write(0);
end.

var
n:longint;
begin
read(n);
if n<=10 then writeln(0)
  else if n<=19 then writeln(4)
    else if n=20 then writeln(15)
      else if n=21 then writeln(4)
                   else writeln(0);
end.

var
n:longint;
begin
read(n);
if ((n-10) in [2..9]) or (n-10=11) then write (4) else
if n-10=1 then write(4) else if n-10=10 then write(15) else write(0); end.

{$APPTYPE CONSOLE}
Uses Sysutils;
var
  a:array[1..100]of longint;
  n,i,j,k,res:longint;
  s:string;
begin
  //reset(input,'input.txt');
  //rewrite(output,'output.txt');
  read(n);
  if n<=10 then
    write(0)
  else
    if n>21 then write(0)
  else
    begin
      if n=20 then write(15)
      else write(4);
    end;
end.

var n:byte;
begin
    readln(n);
    dec(n,10);
    if (n=0)or(n>11) then begin writeln('0');exit end;
    if n in[1..9,11]then writeln('4') else writeln('15');
end.

var
n,i,z,q,g : longint;
a : array[1..62] of longint;
begin
i:=1;
g:=1;
while i<37 do
begin
  g:=g+1;
  a[i]:=g;
  i:=i+1;
  if g=10 then
  g:=1;
end;
for i:=41 to 51 do
  a[i]:=10;
for i:=54 to 57 do
  a[i]:=11;
for i:=59 to 62 do
  a[i]:=1;
readln(n);
z:=10;
q:=0;
if n<>z then
begin
  for i:=1 to 62 do
  begin
    if z + a[i] = n then
      q:=q+1;
  end;
end;
writeln(q);
end.

var n:byte;
begin
read(n);
n:=n-10;
if (n=0) or (n>11) then write(0) else if n=10 then write (15) else write(4);
end.

var n:byte;
begin
    readln(n);
    if (n<=10)or(n>21) then
        writeln(0)
    else
        if n=20 then
            writeln(15)
        else
            writeln(4);
    readln;
end.

program anvard_1;
var n,i: integer;
begin
 readln (n);
 n:= n - 10;
 if (n > 0) and (n <= 11) then i:=4;
 if (n=0) or (n > 11) then i:=0;
 if (n = 10) then i:=15;
 writeln (i);
end.

var n:longint;
    i,a,b:integer;
begin
readln(n);
if n<=10 then writeln(0) else if n>21 then writeln(0) else
begin
n:=n-10;
if n=10 then n:=15 else n:=4;
writeln(n);
end;
end.

//104A
var
  n:longint;
begin
  read(n);
  case n of
    1..10:write(0);
    11..19:write(4);
    20:write(15);
    21:write(4);
    22..25:write(0);
  end;
end.

var
  n:longint;
begin
  {reset(input,'input.txt');
  rewrite(output,'output.txt'); }
  read(n);
  n:=n-10;
  if n=10 then write(15) else
  if n in[1..11] then write(4) else write(0);
end.

program Project3;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var n:integer;
begin
readln(n);
case n of
1..10,22..25:write(0);
11..19,21:write(4);
20:write(15);
end;

end.

{$apptype console}
{$I+,R+,Q+}
Uses Sysutils;
Var
  n:integer;
Begin
  readln(n);
  if n<=10 then begin
    writeln('0');
    halt;
  end;
  if n>21 then begin
    writeln('0');
    halt;
  end;
  n:=n-10;
  case n of
    1,2,3,4,5,6,7,8,9,11: writeln('4');
    10:writeln('15');
  end;
  readln;
  readln;
End.

var
    i,n,m,k,ans:longint;

begin
  readln(n);
  ans:=0;
  for i:=1 to 11 do
   if (i=10) and (i+10=n) then inc(ans,15)
    else
     if (i+10=n) then inc(ans,4);
    writeln(ans);
  end.

var n:longint;
 begin
  read(n);
  n:=n-10;
  if n=10 then write(15)
  else
  if (n>0) and (n<12) then write(4)
  else write(0);
 end.

program ProjectA;

{$APPTYPE CONSOLE}
{$A+,B-,D+,E+,F+,G-,I+,L+,N+,O-,R+,Q+,S+,V+,X+}
// {$A+,B-,D-,E+,F+,G-,I-,L-,N+,R-,Q-,S-,V+,X+}

uses
  SysUtils,
  Math;

const
  inf = 1000000000000000000;
//  base = 1000000009;
//  eps = 1e-9;

var
  n, m, i, j, res, k, res1, res2, l, r, x, y, z: integer;
  a: array [0..10001] of integer;
  s, s1, s2: string;
  ok: boolean;

procedure panic(dxp: integer);
begin
  write(dxp);
  halt(0);
end;

procedure panic64(dxi64: int64);
begin
  write(dxi64);
  halt(0);
end;

procedure panics(kws: string);
begin
  write(kws);
  halt(0);
end;

procedure swap(var qx, qy: integer);
var
  qz: integer;
begin
  qz := qx;
  qx := qy;
  qy := qz;
end;

procedure swap64(var qx1, qy1: int64);
var
  qz1: int64;
begin
  qz1 := qx1;
  qx1 := qy1;
  qy1 := qz1;
end;

procedure swapex(var qx2, qy2: extended);
var
  qz2: extended;
begin
  qz2 := qx2;
  qx2 := qy2;
  qy2 := qz2;
end;

procedure swaps(var qs1, qs2: string);
var
  qs3: string;
begin
  qs3 := qs1;
  qs1 := qs2;
  qs2 := qs3;
end;

begin
  {$IFNDEF ONLINE_JUDGE}
  Reset(input, 'input.txt');
  Rewrite(output, 'output.txt');
  {$ENDIF}

  readln(n);
  x := n - 10;
  if (x <= 0) or (x >= 12) then
    panic(0);
  if n = 20 then
    panic(15)
  else
    write(4)

end.

var
n,q:longint;
begin
readln(n);
q:=n-10;
if (q>=1)and(q<=11) then
if q=10 then begin
    writeln(15)
end else
writeln(4)
else
writeln(0);
end.

program blj;
var n,k:byte;
    f:text;
begin
    { assign(f,'input.txt');
     reset(f);}
     readln({f}n);
    { close(f);}
     if (n<=10)or(n>=22)
        then k:=0
        else if (n-10)=10
                then k:=15
                else k:=4;
    { assign(f,'output.txt');
     rewrite(f);}
     write({f}k);
 {    close(f);}
end.

var
  n:integer;

begin
  read(n);
  n:=n-10;
  if ((n>=1)and(n<=9))or(n=11)then write('4') else
    if (n<=0)or(n>=12) then write('0') else
      if n=10 then write('15');

end.

var
  ans,n,i,s : longint;
begin
  readln(n);
  ans:=0;
  s:=10;
  for i:=2 to 9 do
    if s+i=n then inc(ans,4);
  if s+10 = n then inc(ans,15);
  if (s+1 = n) or (s+11=n) then inc(ans,4);
  writeln(ans);
end.

program blackJack;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var n,k,i:integer;

begin
  readln(n);
  if (n<11) or (n>21) then
   begin
     writeln(0);
     exit;
   end;
   for i:=1 to 11 do
    begin
      k:=10;
      k:=k+i;
       if k=n then
        begin
         k:=i;
         break;
        end;
    end;
    if (k<10) or (k=11) then
       writeln(4)
    else
    if k=10 then
       writeln(15);
end.

program problem1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var n, k: integer;
begin

  read(n);

  if (n <= 10) or (n > 21) then begin
    writeln(0);
    halt;
  end;
  k := n - 10;
  if k = 10 then begin
    writeln(15);
    halt;
  end;
  writeln(4);
end.

Var n,k,i,s,x:longint;
Begin
        Readln(n);
        n:=n-10;
        if(n<10)and(n>0)or(n=11)
        then writeln('4')
        else if n=10
             then writeln('15')
             else writeln('0');

End.

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var
  N: integer;
begin
//  Assign(input, 'in.in');
  ReadLn(N);
  if N - 10 in [1..9, 11] then
    WriteLn(4)
  else if N - 10 = 10 then
    WriteLn(15)
  else
    WriteLn(0);
end.

var n:byte;
begin
    readln(n);
    if (n<=10)or(n>21) then
        writeln(0)
    else
        if n=20 then
            writeln(15)
        else
            writeln(4);
    readln;
end.

program blackjack;
var n : longint;
begin
  read(n);
  case n of
  20 : writeln(15);
  11..19 : writeln(4);
  21     : writeln(4);
  else     writeln(0);
  end;
end.

var
  n:longint;
begin
  {reset(input,'input.txt');
  rewrite(output,'output.txt'); }
  read(n);
  n:=n-10;
  if n=10 then write(15) else
  if n in[1..11] then write(4) else write(0);
end.

Program Blackjack;
uses math;
var n:byte;
begin   readln(n);
        if (n<=10) or (n>=22) then writeln(0)
        else if (n=11) or (n=21) then writeln(4)
        else if n=20 then writeln(15)
        else writeln(4);
end.

var n:integer;
begin
readln(n);
if (n<=10) or (n>=22) then write(0) else
if (n<>20) then write(4) else
write(15);
readln;
end.

var n: longint;
begin
read (n);
if ((n >= 11) and (n <= 21)and(n <> 20)) then write ('4') else
if n = 20 then write ('15') else write ('0');

end.

program Project5;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  n, i, kol, shet: longint;
begin
  readln(n);
  {kol := 10;
  shet := 0;
  for i := 2 to 10 do
  begin
    if i + kol = n then
      shet := shet + 4;
  end;

  for i := 1 to 3 do
  begin
    if}
  kol := n - 10;
  if (kol >= 2) and ( kol <= 9) then
  begin
    writeln('4');
    exit;
  end;

  if (kol = 1) or (kol = 11) then
  begin
    writeln('4');
    exit;
  end;

  if kol = 10 then
  begin
    writeln(4 + 4 + 4 + 3);
    exit;
  end;
  writeln('0');
end.

var
  n:longint;
begin
  readln(n);
  n:=n-10;
  if (n<=0)or(n>11) then writeln(0)
  else begin
    if n=10 then writeln(15)
    else if n=11 then writeln(4)
    else if n=1 then writeln(4)
    else writeln(4);
  end;
end.

var n   :integer;
begin
read(n);
if (n<11) or (n>21) then write(0) else
if ((n-10)<10) or ((n-10)=11) then write(4) else write(15);
end.

var
    i,n,m,k,ans:longint;

begin
  readln(n);
  ans:=0;
  for i:=1 to 11 do
   if (i=10) and (i+10=n) then inc(ans,15)
    else
     if (i+10=n) then inc(ans,4);
    writeln(ans);
  end.

const fi = '';
        fo = '';
var
        f : text;
        res,n : longint;
begin
        assign(f,fi);
        reset(f);
        readln(f,n);
        Close(f);
        n := n - 10;
        if (n = 0) or (n > 11) then res := 0
        else if (n < 10) and (n > 0)then res := 4
        else if n = 10 then res := 15
        else if n = 11 then res := 4;
        Assign(f,fo);
        rewrite(f);
        Writeln(f,res);
        Close(f);
        End.

program Project2;

uses
  SysUtils;
{$APPTYPE CONSOLE}

var
  l,b,n,i,m,f,k,s:integer;
  a:Array[1..1000000] of integer;

begin
  { TODO -oUser -cConsole Main : Insert code here }
  {$IFNDEF ONLINE_JUDGE}
  reset(input,'input.txt');
  rewrite(output,'output.txt');
  {$ENDIF}
  read(n);
  if n < 11 then begin
    writeln(0);
    halt;
  end;
  n := n - 10;
  if n =  10 then begin
    writeln(15);
    halt;
  end;
  for i := 1 to 11 do
    if n = i then begin
      writeln(4);
      halt;
    end;
  writeln(0);
end.

var
i,j,k,l,m,n:longint;
begin
    readln(n);
    l := n - 10;

    if (l = 0) then writeln(0) else
    if (l < 10)and(l > 0) then writeln(4) else
    if (l = 10) then writeln(15) else
    if (l = 11) then writeln(4) else
    writeln(0);
end.

program blackjack;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  n : longint;
begin
  readln(n);
  case n of
  1..10: writeln(0);
  22..25: writeln(0);
  11..19, 21: writeln(4);
  20: writeln(15);
  end;
end.

Var
    n: Int64;

Begin
    Read(n);
    n -= 10;
    If (n > 0) and (n <= 21) then Begin
        If n = 10 then
            Write(15)
        Else If (n = 11) or (n <= 9) then
            Write(4)
    End
    Else
        Write(0);
End.

var
    n:integer;
begin
    readln(n);
    case n of
    1..11,22..25: writeln(0);
    12..19,21: writeln(4);
    20: writeln(15);
    end;
end.

var n,k:longint;
    begin
      read(k);
      n:=k-10;
      if n=0 then writeln(0)
       else if (n=1) then writeln(1)
        else if (n>1) and (n<10) then writeln(4)
         else if (n=10) then writeln(15)
          else writeln(1);
    end.

program aaa;
Var n:longint;
begin
     readln(n);
     n:=n-10;
     case n of
     0:writeln(0);
     10:writeln(15);
     12:writeln(0);
     13:writeln(0);
     14:writeln(0);
     15:writeln(0);
     else writeln(4);
     end;
end.

program anvard_1;
var n,i: integer;
begin
 readln (n);
 n:= n - 10;
 if (n > 0) and (n < 10) then i:=4;
 if (n=0) or (n > 11) then i:=0;
 if (n = 10) then i:=15;
 writeln (i);
end.

program bangke;
var
        x, a : longint;
begin
        readln (x);
        a := x - 10;
        if a <= 0 then writeln ('0')
        else if x <= 21 then
                begin
                        if a = 10 then writeln (4*4-1)
                                else writeln ('4');
                end
                else if x = 22 then writeln (15*4+4*3)
                        else writeln (15*4+4*4);
end.

var n:longint;
    i,a,b:integer;
begin
readln(n);
if n<=10 then writeln(0)else
begin
n:=n-10;
if n=10 then n:=15 else n:=4;
writeln(n);
end;
end.

//Yerzhan Dyussenaliyev
{$o-}
Uses
    Math, SysUtils;
const
    inf = maxlongint div 3;
    dx: array [1..4] of longint = (0, 0, -1, 1);
    dy: array [1..4] of longint = (1, -1, 0, 0);
var
    a: array [0..1100000] of longint;
    b: array [0..1100, 0..1100] of longint;
    c: array [0..1100, 0..1100] of char;
    s, ss, st: string;
    n, i, j, k, q, res, cur, ans, t, l, r: longint;

begin
    {$ifndef online_judge}
		reset(input, 'a.in');
        rewrite(output, 'a.out');
    {$endif}

    read(n);
    res := n - 10;
    if res <= 0 then begin
		writeln(0);
    end else
    if res <= 9 then begin
		writeln(4);
    end else
    if res = 10 then begin
		writeln(15);
    end else begin
        writeln(4);
    end;

end.

var n:byte;
begin
readln(n);
if ((n>11) and (n<19)) or (n=21) then writeln(4)
else
if (n=20) then writeln(15)
else
writeln(0);
end.

program bangke;
var
        x, a : longint;
begin
        readln (x);
        a := x - 10;
        if a <= 0 then writeln ('0')
        else if x < 21 then
                begin
                        if a = 10 then writeln (4*4-1)
                                else writeln ('4');
                end
                else if x = 21 then writeln (15*4+4)
                else if x = 22 then writeln (15*4+4*3)
                        else writeln (15*4+4*4);
end.

uses
  SysUtils;
  var n:integer;
begin
readln(n);
n:=n-10;
if n=1 then begin writeln(4+4);halt;end;
if n=11 then begin writeln(4);halt;end;
if (n=10) then begin writeln(15);halt;end;
if (n<10) and (n>0) then begin writeln(4);halt;end;
writeln(0);
end.

var a,b,c,d,e,f,i,kolvo:longint;
begin
read(a);
kolvo:=0;
a:=a-10;
if a=0 then write('0') else
if a=1 then write('4') else begin
for i:=2 to 10 do begin
if a=i then kolvo:=kolvo+4;
end;
for i:=1 to 3 do begin
if a=10 then kolvo:=kolvo+4;
end;
if a=10 then dec(kolvo);
if a=11 then write('4');
write(kolvo);
end;

end.

var n,r:LongInt;
begin
  //reset(input,'input.txt');
  //rewrite(output,'output.txt');
  Readln(n);
  r:=0;
  case n of
  11..19:r:=4;
  20:r:=15;
  end;
  Writeln(r);
end.

Var n,i,ans:LongInt;
  begin
    ans:=0;
    ReadLn(n);
    For i:=1 to 9 do
     if i+10=n then ans:=ans+4;
    if 10+10=n then ans:=ans+15;
    if 10+1=n then ans:=ans+4;
    if 10+11=n then ans:=ans+4;
    WriteLn(ans);
  end.

uses
  SysUtils;
  var n:integer;
begin
readln(n);
n:=n-10;
if n=1 then begin writeln(4+4);halt;end;
if n=11 then begin writeln(4);halt;end;
if n=10 then begin writeln(15);halt;end;
if (n<10) or (n=0) then begin writeln(4);halt;end;
writeln(0);
end.

const fi = '';
        fo = '';
var
        f : text;
        res,n : longint;
begin
        assign(f,fi);
        reset(f);
        readln(f,n);
        Close(f);
        n := n - 10;
        if (n = 0) then res := 0
        else if (n < 10) then res := 4
        else if n = 10 then res := 15
        else if n = 11 then res := 4;
        Assign(f,fo);
        rewrite(f);
        Writeln(f,res);
        Close(f);
        End.

{$APPTYPE CONSOLE}
{$R+,S+,Q+,I+,O-}
{R-,S-,Q-,I-,O+}

uses
	SysUtils, Math;

var
	n,ans:longint;

begin
{$IFNDEF ONLINE_JUDGE}
reset(input,'input.txt');
rewrite(output,'output.txt');
{$ENDIF}
read(n);
dec(n,10);
if n = 10 then ans := 15 else
if n < 1 then ans := 0 else ans := 4;
write(ans);
end.

const
    finp='';
    fout='';
var n,KQ:longint;
procedure nhap;
var f:text;
begin
    assign(f,finp);
    reset(f);
    readln(f,n);
    close(f);
end;
{-------------------}
procedure xuli;
var k:longint;
begin
    k:=n-10;
    if k<=0 then KQ:=0;
    if (1<=k) and (k<=9) then KQ:=4;
    if k=10 then KQ:=11;
    if k=11 then KQ:=4;
    if k>10 then KQ:=0;
end;
{-------------------}
procedure xuat;
var g:text;
begin
    assign(g,fout);
    rewrite(g);
    write(g,KQ);
    close(g);
end;
{-------------------}
begin
    nhap;
    xuli;
    xuat;
end.

const fi = '';
        fo = '';
var
        f : text;
        res,n : longint;
begin
        assign(f,fi);
        reset(f);
        readln(f,n);
        Close(f);
        n := n - 10;
        if (n = 1) or (n = 0) then res := 0
        else if (n < 10) then res := 4
        else if n = 10 then res := 15;
        Assign(f,fo);
        rewrite(f);
        Writeln(f,res);
        Close(f);
        End.

var n: longint;
begin
read (n);
if ((n >= 12) and (n <= 18))or(n = 21) then write ('4') else
if n = 20 then write ('11') else write ('0');

end.

var n:longint;
begin
  readln(n);
  if (n<=10) and (n>21) then begin
    write(0); halt;
  end;
  if (n<20) or (n=21) then begin
    write(4); halt;
  end;
  if n=20 then write(15);
end.

Program blackJack;
Var n:Byte;
Begin
    readln(n);
    if (n<=10) or (n>21)
    then writeln('0')
    else begin
             case n of
             11:writeln('1');
             12:writeln('4');
             13,14,15,16,17,18,19:writeln('4');
             20:writeln('15');
             21:writeln('1');
             end;
         end;
End.

var x:integer;
begin
readln(x);
x:=x-10;
if x=10 then writeln(15)
else if x<>0 then writeln(4)
             else writeln(0);
end.

program bangke;
var
        x, a : longint;
begin
        readln (x);
        a := x - 10;
        if a <= 0 then writeln ('0')
        else if x <= 21 then
                begin
                        if a = 10 then writeln (4*4-1)
                                else writeln ('4');
                end
                else if x = 25 then writeln (15*4+4*4);
end.

const a:array[1..11] of integer = (4,4,4,4,4,4,4,4,4,15,4);
var n:integer;
begin
readln(n);
if (n>10) and (n<14) then writeln(a[n-10])
        else writeln(0);
end.

var n,k:longint;
    begin
      read(k);
      n:=k-10;
      if n=0 then writeln(0)
       else if (n=1) then writeln(1)
        else if (n>1) and (n<10) then writeln(4)
         else if (n=10) then writeln(15)
          else writeln(1);
    end.

program p1;
var n:integer;
begin
  readln(n);
  if ((n>=1) and (n<=10)) or ((n>=22) and (n<=25)) then writeln('0');
  if ((n>=11) and (n<=19)) and (n=21) then writeln('4');
  if n=20 then writeln('15');
end.

program A;

{$APPTYPE CONSOLE}

var
  i, k, n : longint;

begin
  readln(n);
  n := n - 10;
  for i := 2 to 10 do
    if i = n then
      inc(k, 4);
  if 10 = n then
    inc(k, 11);
  if (n = 11) or (n = 1) then
    inc(k, 4);
  writeln(k);
  readln;
  readln;
end.

{$APPTYPE CONSOLE}
{$o-}
{$j+}
uses
  SysUtils;
var n:integer;
fin,fout:text;
begin
 assign(fin,'');
 assign(fout,'');
 reset(fin); rewrite(fout);
 readln(fin,n);
 if n<12 then writeln(fout,0);
 if (n>11) and (n<20) then writeln(fout,4);
 if n=20 then writeln(fout,15);
 if n=21 then writeln(fout,4);
 close(fin); close(fout);
end.

var n:integer;
begin
readln(n);
n:=n-10;
case n of 0: writeln ('0');
          1,11: writeln ('2');
          2..9: writeln ('4');
          10: writeln ('15');
          12..15: writeln('0');
end;
end.

{$R+,Q+,I+}
{$apptype console}
Uses SysUtils;
Const
   Source='input.txt';
   Target='output.txt';
Var
   n,p:Integer;
Begin
   //Reset(input,Source);
   //Rewrite(output,Target);
   Read(n);
   p:=n-10;
   If p<=0 Then Write(0)
   Else If p=10 Then Write(15)
   Else If p>21 Then Write(0)
   Else Write(4);
End.

var
n,i,z,q,g : longint;
a : array[1..62] of longint;
begin
i:=1;
g:=1;
while i<37 do
begin
  g:=g+1;
  a[i]:=g;
  i:=i+1;
  if g=10 then
  g:=1;
end;
for i:=41 to 51 do
  a[i]:=10;
for i:=54 to 57 do
  a[i]:=11;
for i:=58 to 62 do
  a[i]:=1;
readln(n);
z:=10;
q:=0;
if n<>z then
begin
  for i:=1 to 62 do
  begin
    if z + a[i] = n then
      q:=q+1;
  end;
end;
writeln(q);
end.

var n:longint;
    i,a,b:integer;
begin
readln(n);
if n<=10 then writeln(0)else
begin
n:=n-10;
if n=10 then n:=15 else n:=4;
writeln(n);
end;
end.

var ans,n:longint;

begin
  read(n);
  n:=n-10;
  if n=10 then write(15)
  else if n<=0 then write(0)
  else write(4);
end.

var n:integer;
begin
readln(n);
n:=n-10;
case n of 0: writeln ('0');
          1..9,11: writeln ('4');
          10: writeln ('15');
          12..15: writeln('0');
end;
end.

uses
  SysUtils;
  var n:integer;
begin
readln(n);
n:=n-10;
if n=1 then begin writeln(4+4);halt;end;
if n=11 then begin writeln(4);halt;end;
if n=10 then begin writeln(15);halt;end;
if n<10 then begin writeln(4);halt;end;
writeln(0);
end.

var n:byte;
begin
  read(n);
  case n of
    10:n:=0;
    20:n:=15;
    21..25:n:=0;
    else n:=4;
  end;
  write(n)
end.

program BlackJack;
var n,i,t:integer;
    a:array[1..11] of byte;
begin
     for i:=2 to 9 do begin
         a[i]:=4;
     end;
     a[10]:=15;
     a[11]:=1;
     a[1]:=1;
     readln(n);
     n:=n-10;
     i:=1; t:=0;
     while n <> i do begin
           i:=i+1;
           if i = 12 then begin t:=1; n:=i; end;
     end;
     if t=0 then writeln(a[i]) else writeln(0);
end.

var ko,a,n:longint;
 begin
  readln(n);
  ko:=0;
  if n=20 then ko:=15;
  if n=10+11 then inc(ko,4);
  if n=10+1 then inc(ko,4);
  for a:=1 to 9 do
  if n=10+a then inc(ko,4);
 writeln(ko);
end.

var n: longint;
begin
read (n);
if ((n >= 12) and (n <= 18))or(n = 21) then write ('4') else
if n = 20 then write ('11') else write ('0');

end.

{$mode objfpc}

var             i , n                   :       integer;

procedure Result( res : integer );
        begin
                writeln( res );
                halt;
        end;

begin
                readln( n );
                if ( n <= 10 ) or ( n > 21 ) then Result( 0 );
                if ( n = 11 ) or ( n = 21 ) then
                        Result( 1 );
                if n < 20 then
                        Result( 4 );
                if n = 20 then
                        Result( 15 );
end.

var
        n,x,y,z,i,j,k,output : longint;
begin
        readln(n);
        if(n<=10) then
        output := 0
        else if(n>10) and (n<20) then
        output := 4
        else if(n= 20) then
        output := 15
        else output := 4;
        writeln(output);

end.

Program a104;
const
a:array [1..5] of byte=(0,12,13,14,15);
b:array [1..10] of byte=(1,2,3,4,5,6,7,8,9,11);
c=10;
Var
n,m,i:byte;
Begin
Readln(n);
m:=n-10;
For i:=1 to 5 do
 if m=a[i] then Writeln(0);
For i:=1 to 10 do
 if m=b[i] then Writeln(4);
if m=c then Writeln(15);
end.

//Yerzhan Dyussenaliyev
{$o-}
Uses
    Math, SysUtils;
const
    inf = maxlongint div 3;
    dx: array [1..4] of longint = (0, 0, -1, 1);
    dy: array [1..4] of longint = (1, -1, 0, 0);
var
    a: array [0..1100000] of longint;
    b: array [0..1100, 0..1100] of longint;
    c: array [0..1100, 0..1100] of char;
    s, ss, st: string;
    n, i, j, k, q, res, cur, ans, t, l, r: longint;

begin
    {$ifndef online_judge}
		reset(input, 'a.in');
        rewrite(output, 'a.out');
    {$endif}

    read(n);
    res := n - 10;
    if res <= 0 then begin
		writeln(0);
    end else
    if (res > 0) and (res <= 9) then begin
		writeln(4);
    end else
    if res = 10 then begin
		writeln(15);
    end else
    if res = 11 then begin
        writeln(4);
    end;

end.

program Project2;

uses
  SysUtils;
{$APPTYPE CONSOLE}

var
  l,b,n,i,m,f,k,s:integer;
  a:Array[1..1000000] of integer;

begin
  { TODO -oUser -cConsole Main : Insert code here }
  {$IFNDEF ONLINE_JUDGE}
  reset(input,'input.txt');
  rewrite(output,'output.txt');
  {$ENDIF}
  read(n);
  if n < 11 then begin
    writeln(0);
    halt;
  end;
  n := n - 10;
  if n =  10 then begin
    writeln(15);
    halt;
  end;
  for i := 2 to 11 do
    if n = i then begin
      writeln(4);
      halt;
    end;
  writeln(0);
end.

program bangke;
var
        x, a : longint;
begin
        readln (x);
        a := x - 10;
        if a < 0 then writeln ('')
        else
        if x = 10 then writeln ('0')
        else if x <= 21 then
                begin
                        if a = 10 then writeln (4*4-1)
                                else writeln ('4');
                end
                else if x = 22 then writeln (15*4)
                        else writeln (15*4+4*4);
end.

var
	ar:array[1..11] of longint;
	ans,i,n:longint;

begin
	for i:=2 to 9 do
	begin
		ar[i]:=4;
	end;

	ar[10]:=15;

	ar[1]:=1;
	ar[11]:=1;

	readln(n);
	dec(n,10);

	for i:=1 to 11 do
	begin
		if (n-i=0) then
		begin
			inc(ans,ar[i]);
		end;
	end;

	writeln(ans);

end.

var
    i,n,m,k,ans:longint;

begin
  readln(n);
  for i:=1 to 11 do
   if (i=10) and (i+10=n) then inc(ans,15)
    else
     if (i+10=n) then inc(ans,4);
    writeln(ans);
  end.

var n:integer;
begin
readln(n);
n:=n-10;
case n of 0: writeln ('0');
          1,11: writeln ('2');
          2..9: writeln ('4');
          10: writeln ('15');
          12..15: writeln('0');
end;
end.

var
a,i,n: integer;
begin
read(n);
if (n-10<2) or (n-10>11) then
    write(0)
else
    begin
        if n-10=10 then
            write(15)
        else
            write(4);
    end;
end.

program bangke;
var
        x, a : longint;
begin
        readln (x);
        a := x - 10;
        if a = 0 then writeln ('0')
        else if x <= 21 then
                begin
                        if a = 10 then writeln (4*4-1)
                                else writeln ('4');
                end
                else
                        writeln (15+4);
end.

var
 z,n,a:longint;
begin
 readln(n);
 z:=n-10;
 if z<1 then writeln(0) else
 begin
  if z=10 then
  begin
   writeln(15);
   halt;
  end;
  writeln(4);
 end;
end.

var
n:longint;
begin
//   assign(input,'a.in'); reset(input);
//   assign(output,'a.out'); rewrite(output);
    read(n);
    if (n<10) then writeln(1) else
    if n=10 then writeln(0) else
    if (n>10) and (n<20) then writeln(4) else
    if (n=20) then writeln(15) else
    writeln(4);
//   close(input);
//   close(output);
end.

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  n, i, j : integer;
  a : array[1..100000] of integer;

begin
  read(n);
  dec(n, 10);
  if (n <= 11) and (n >= 1) and (n <> 10) then writeln(4)
  else
  if n = 10 then writeln(15)
  else
  if n = 0 then writeln(0);
   readln;readln;
end.

var n:integer;
begin
readln(n);
if n<=10 then write(0) else
if (n>10) and (n<>20) and (n<26) then write(15) else
write(15);
readln;
end.

var n:integer;
begin
read(n);
n:=n-10;
if n<0 then write(0);
if n=0 then write(0);
if (n>1) and (n<10) then write(4);
if (n=1) or (n=11) then write(1);
if n=10 then write(15);
if n>11 then write(0);
end.

var n: longint;
begin
read (n);
if ((n >= 12) and (n <= 18))or(n = 21) then write ('4') else
if n = 20 then write ('11') else write ('0');

end.

const a:array[1..11] of integer = (4,4,4,4,4,4,4,4,4,15,4);
var n:integer;
begin
readln(n);
if (n>10) and (n<14) then writeln(a[n-10])
        else writeln(0);
end.

Var
    n: Int64;

Begin
    Read(n);
    n -= 10;
    If (n > 0) and (n <= 21) then Begin
        If n = 10 then
            Write(15)
        Else If (n = 11) or (n <= 9) then
            Write(4)
    End
    Else
        Write(0);
End.

program blackjack;

var
    n : integer;

begin
    read(n);

    n := n - 10;

    if (n = 0) or (n > 11) then write('0')
    else if (n = 10) then write ('15')
    else write('4');

end.

program p1;
var n:integer;
begin
  readln(n);
  if ((n>=1) and (n<=10)) or ((n>=22) and (n<=25)) then writeln('0');
  if ((n>=11) and (n<=19)) and (n=21) then writeln('4');
  if n=20 then writeln('15');
end.

program codeforces;

{$APPTYPE CONSOLE}
{$R+ Q+ I+}

uses
  SysUtils;
var
  n,sum: integer;
begin
  read(n);
  sum:=n-10;
  if sum=0 then write(0)
  else if sum=10 then write(15)
  else write(4);
end.

Var n,k,i,s,x:longint;
Begin
        Readln(n);
        n:=n-10;
        if(n<10)and(n>0)
        then writeln('4')
        else if n=10
             then writeln('15')
             else writeln('0');

End.

var n,i :longint;
    a :array[0..12] of longint;
begin
    read(n);
    for i:=2 to 9 do
        a[i]:=4;
    a[0]:=0;
    a[10]:=15;
    a[11]:=4;
    write(a[n-10]);
end.

uses
  SysUtils;
  var n:integer;
begin
readln(n);
n:=n-10;
if n=1 then begin writeln(4+4);halt;end;
if n=11 then begin writeln(4);halt;end;
if n=10 then begin writeln(15);halt;end;
if n<10 then begin writeln(4);halt;end;
writeln(0);
end.

{$mode objfpc}

var             i , n                   :       integer;

procedure Result( res : integer );
        begin
                writeln( res );
                halt;
        end;

begin
                readln( n );
                if ( n <= 10 ) or ( n > 21 ) then Result( 0 );
                if ( n < 20 ) or ( n = 21 ) then
                        Result( 1 );
                if n = 20 then
                        Result( 15 );
end.

{$APPTYPE CONSOLE}

uses
  SysUtils;
var
 n,i: byte;
 count: byte;

begin
  { TODO -oUser -cConsole Main : Insert code here }
  read(n);
  n:=n-12;
  count:=0;
  for i:=2 to 9 do if i=n then count:=count+4;
  if n=10
  then count:=count+15;
  if (n=1) or (n=11)
  then count:=count+4;
  writeln(count);
end.

var
n,i,z,q,g : longint;
a : array[1..62] of longint;
begin
i:=1;
g:=1;
while i<37 do
begin
  g:=g+1;
  a[i]:=g;
  i:=i+1;
  if g=10 then
  g:=1;
end;
for i:=41 to 51 do
  a[i]:=10;
for i:=53 to 57 do
  a[i]:=11;
for i:=58 to 62 do
  a[i]:=1;
readln(n);
z:=10;
q:=0;
if n<>z then
begin
  for i:=1 to 62 do
  begin
    if z + a[i] = n then
   q:=q+1;
  end;
end;
writeln(q);
end.

var  a:array[1..25] of longint;
    n:longint;
    i:integer;
Begin
read(n);
for i:=1 to 10 do
a[i]:=0;
for i:=11 to 19 do
a[i]:=4;
a[20]:=15;
for i:=21 to 25 do
a[i]:=4;
write(a[n]);
end.

program Project2;

uses
  SysUtils;
{$APPTYPE CONSOLE}

var
  l,b,n,i,m,f,k,s:integer;
  a:Array[1..1000000] of integer;

begin
  { TODO -oUser -cConsole Main : Insert code here }
  {$IFNDEF ONLINE_JUDGE}
  reset(input,'input.txt');
  rewrite(output,'output.txt');
  {$ENDIF}
  read(n);
  n := n - 10;
  if n =  10 then begin
    writeln(15);
    halt;
  end;
  if n < 2then begin
    writeln(0);
    halt;
  end;
  write(4);
end.

uses
  SysUtils;
  var n:integer;
begin
readln(n);
n:=n-10;
if n=1 then begin writeln(4+4);halt;end;
if n=11 then begin writeln(4);halt;end;
if n=10 then begin writeln(15);halt;end;
if (n<10) or (n=0) then begin writeln(4);halt;end;
writeln(0);
end.

Uses
    Sysutils;
Var
   n:integer;
Begin
   readln(n);
   n:=n-10;
   case n of
   0,12..15:write(0);
   1..9,11:write(4);
   10:write(15);
   end;
end.

var n:longint;
 begin
  read(n);
  n:=n-10;
  if n=10 then write(15)
  else
  if (n>0) and (n<15) then write(4)
  else write(0);
 end.