Паскаль. "циклы с условием" факториалом натурального числа n называется произведение n! =1*2*3*4*5**n . подсчитать чему равняется 7!

Var f,i:integer;
begin
i:=1;
f:=1;
while i<7 do
 begin
 i:=i+1;
 f:=f*i;
 end;
writeln(i,'! = ',f);
end.

Результат:
7! = 5040