uses Crt;
function F_1(n1:integer):integer;
var  a,b,c,t:integer;
begin
     t:=0;
      for a:=1 to 9 do
       for b:=0 to 9 do
        for c:=0 to 9 do
         if (a+b+c)=n1
          then Inc(t);
      F_1:=t;
end;
var  n:integer;
begin
     ClrScr;
      Write('Cislo = ');
       Readln(n);
        Writeln;
      Writeln('Variantov = ',F_1(n));
     ReadKey;
end.