Указать ошибки, переписать верный программный код. Времени много так что не торопитесь
Ответ:
готово
Объяснение:
program factorial;
var k, f, n: integer;
begin
k := 1;
f := 1;
Write('Введите N:');
ReadLn(n);
while k <= n do</p>
f := f * k;
k := k + 1;
end;
writeln(n,'!=',f);
end.
