Програма для визначення факторіалу:
program factorial;
var y,n,i: longint;
begin
writeln ('vvedit n');
readln (n);
y:=1;
for i:=1 to n do
y:=y*i;
writeln (y:6);
readln
end.