Страницы 191-195 параграф 4 4 вопрос / задание 3, ГДЗ по информатике за 8 класс к учебнику Босовой просвещение

Первая ошибка: f:=0. Умножение на 0 всегда будет 0!

Вторая ошибка: k<n. По этому условию не будет умножения на последнюю цифру факториала.

program Z_3_5;

var

  k, n: integer;

  f: longint;

begin

  write('Введите n >> ');

  readln(n);

  k := 1; f := 1;

  while k <= n do

  begin

    f := f * k;

    k := k + 1

  end;

  writeln(n, '!=', f)

end.