Program Faktorial dengan Rekursi

uses wincrt;
procedure faktorial(n : byte; var hasil:longint);
begin
if n<=1 then
hasil:=1
else
begin
faktorial(n-1,hasil);
hasil:=n*hasil;
end;
end;

var
n:byte;
f:longint;
begin
write ('berapa faktorial? ');readln (n);
faktorial (n,f);
writeln ('faktorial= ',f);
end.