program faktorialis;
uses crt;
var n,i: integer;
    fakt:shortint;
begin
     clrscr;
     writeln('Add meg azt a szamot, amelynek a faktorialisat keresed!');
     readln(n);
     fakt:=1;
     for i:=1 to n do
                   fakt:=fakt*i;
     if n=0 then writeln(n,'!=1')
            else writeln(n,'!=',fakt);
readln;
end.