2 задание найти ошибке срочно!!!)

Правильный вариант кода:

k := 1;
f := 1;
while k <= n do 
begin
f := f * k;
k:=k+1;
end;