Найти и вывести на экран все N и N!, для которых значение N! не превосходит заданное с клавиатуры число Z - Pascal ABC

Формулировка задачи:

Найти и вывести на экран все N и N!, для которых значение N! не превосходит заданное с клавиатуры число Z. (Обязательно должно присутствовать цикл while). Спасибо за внимание/помощь.

Решение задачи: «Найти и вывести на экран все N и N!, для которых значение N! не превосходит заданное с клавиатуры число Z»

Листинг программы

var n,z,f:integer;
begin
repeat
write('Введите число Z от 1 до 12!=479001600 z=');
readln(z);
until(z>0)and(z<=479001600);
f:=1;
n:=1;
while f<=z do
 begin
  writeln('n=',n,' n!=',f);
  n:=n+1;
  f:=f*n;
 end;
end.

Объяснение кода листинга программы

Создаются три переменные: n, z и f, которые являются целочисленными типами данных.
В цикле repeat-until выполняется следующий код:
- Выводится сообщение 'Введите число Z от 1 до 12!=479001600 z='.
- Считывается значение переменной z с клавиатуры.
- Проверяется, что значение z находится в диапазоне от 1 до 479001600 (максимальное значение, которое можно представить в 32-битном целочисленном типе данных).
- Если условие не выполняется, цикл повторяется.
Переменная f инициализируется значением 1.
Переменная n инициализируется значением 1.
Запускается цикл while, который выполняется, пока значение переменной f меньше или равно значению переменной z.
В каждой итерации цикла выводится сообщение 'n=', за которым следует значение переменной n, и 'n!=', за которым следует значение переменной f.
Значение переменной n увеличивается на 1.
Значение переменной f умножается на значение переменной n.
Цикл while повторяется, пока значение переменной f меньше или равно значению переменной z.