Составить программу вычисления факториала целого положительного числа,через while.Паскаль

Question

Составить программу вычисления факториала целого положительного числа,через while.Паскаль

Answer 1

var i,n,f:integer;
begin
readln(n);
i:=1;
f:=1;
while i<=n do begin f:=f*i; <br>inc(i);
end;
writeln(f);
readln;
end.