program fakt; function faktorialis(n: byte):qword; begin if n = 0 then faktorialis:=1 else faktorialis:=n * faktorialis(n-1); end; var n: byte; begin writeln('Kerek egy szamot, n = '); readln(n); writeln(n, '! = ', faktorialis(n)); readln; end.