Program Faktorial

Ini contoh program faktorial

program faktorial;
uses wincrt;
var
n,i:longint;
f:real;
begin
readln(n); f:=1;i:=0;
repeat

i:=i+1;
f:=f*i;
until i=n;
writeln (n, 'faktorial= ',f)
end.