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,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.

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.

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.

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:byte;
begin
readln(n);
case n of
11..19:writeln('4');
20:writeln('15');
21:writeln('4');
else writeln('0');
end;
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 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
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.

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,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.

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.

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.

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.

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 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
  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.

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.

//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 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.

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 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.

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 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: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.

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.

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.

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,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.

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   :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.

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: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 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.

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: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.

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 , 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: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.

  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.

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 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 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
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 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.

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}
{$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 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 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.

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
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 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.

{$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.

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.

{$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: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
readln(n);
if (n<=10) or (n>=22) then write(0) else
if (n<>20) then write(4) else
write(15);
readln;
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.

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 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.

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.

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 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 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 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.

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.

{$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;
   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.