PROGRAM FAKTORIAL

uses wincrt;

function faktorial(a:integer):longint;
begin
if(a=1) then
faktorial:=1 else
faktorial:=a*faktorial(a-1);
end;

var
x:integer;
begin
writeln('Faktorial');
write('Berapa faktorial ?: ');readln(x);
writeln(x,'faktorial = ',faktorial(x));
readln;
end.