program asd;var x,k,n:integer;beginreadln (n);for x:=100 to 999 do beginif (x div 100 + x div 10 mod 10 + x mod 10 = n) thenk:=k+1;end;writeln (k);readln;end.
program asd;
var x,k,n:integer;
begin
readln (n);
for x:=100 to 999 do begin
if (x div 100 + x div 10 mod 10 + x mod 10 = n) then
k:=k+1;
end;
writeln (k);
readln;
end.