Найти натуральное наименьшее число n, факториал которого превышает число 4000 - Pascal

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

Написать программу для решения следующей задачи,используя,по крайней мере, два вида циклов. Найти натуральное наименьшее число n, факториал которого превышает число 4000 (n!>4000).

Решение задачи: «Найти натуральное наименьшее число n, факториал которого превышает число 4000»

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

uses crt;
var c: byte;
function fact (i: byte) : word;
begin
if i=0 then fact:=1
else if i>0 then fact:=i*fact(i-1);
end;
begin
clrscr;
repeat
inc(c)
until fact(c)>4000;
write(c);
end.

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

В данном коде используется язык программирования Pascal. Он содержит следующие элементы:

uses crt;: Подключение стандартной библиотеки ввода-вывода.
var c: byte;: Объявление переменной типа byte с именем c.
function fact (i: byte) : word;: Объявление функции типа word с именем fact, которая принимает аргумент типа byte и возвращает результат типа word.
begin: Начало блока кода.
if c=0 then fact:=1: Проверка условия if c=0 then fact:=1. Если условие истинно, то присваивается значение 1 переменной fact.
else if c>0 then fact:=c*fact(c-1);: Если условие if c=0 then fact:=1 ложно, то выполняется блок else if c>0 then fact:=c*fact(c-1). Здесь происходит вызов функции fact с аргументом c-1 и умножение результата на c.
end;: Конец блока функции.
begin: Начало блока кода.
clrscr;: Вызов функции очистки экрана.
repeat: Начало цикла повторения.
inc(c): Увеличение значения переменной c на единицу.
until fact(c)>4000;: До тех пор, пока факториал числа c не превысит число 4000, выполняется цикл повторения.
write(c);: Вывод значения переменной c на экран.
end.: Конец программы.