[PAPA_KARLO]

function fakt (var n: longint): longint;
begin
if n<=0 then fakt := 1;
fakt := fakt(n-1);
end;