function Poisk(an:integer):integer;
var  a,b,c,x:integer;
begin
     x:=0;
      for a:=1 to 9 do
       for b:=0 to 9 do
        for c:=0 to 9 do
         if (a+b+c)=an
          then Inc(x);
     Poisk:=x;
end;
var  n:integer;
begin
      Write('N = ');
       Readln(n);
        Writeln;
         Writeln('Cisel = ',Poisk(n));
     Readln;
end.