Program faktor;
var i,n,f:integer;
begin
     Writeln('Kerem a szamot!');
     ReadLn(n);
     f:=1;
     For i:=2 to n do
     f:=f*i;
     Writeln(n,' faktorialisa: ',f);
     Readln
end.