Указать ошибки, переписать верный программный код. ​
Времени много так что не торопитесь

готово

Объяснение:

program factorial;

var k, f, n: integer;

begin

 k := 1;

 f := 1;

 Write('Введите N:');

 ReadLn(n);

 while k <= n do

 begin

   f := f * k;

   k := k + 1;

 end;

 writeln(n,'!=',f);

end.