Вычисление факториала числа f=10! записать с использованием операторов цикла - Free Pascal

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

Вычисление факториала числа f=10! записать с использованием операторов цикла for, while.

Решение задачи: «Вычисление факториала числа f=10! записать с использованием операторов цикла»

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

uses crt;
var i,n,f:longint;
begin
 clrscr;
  repeat
   write('n=');
   readln(n);
  until n>=0;
  f:=1;
   for i:=1 to n do
    begin
     f:=f*i;
    end;
  writeln('Г–ГЁГЄГ«Г®Г¬ FOR F=',f);
 i:=1;f:=1;
  while i<=n do
   begin
    f:=f*i;
    inc(i);
   end;
  writeln('Г–ГЁГЄГ«Г®Г¬ WHILE F=',f);
 readkey;
end.

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

Код выполняет две основные задачи:

Запрашивает у пользователя число n (количество циклов), которое должно быть неотрицательным. Это делается с помощью цикла repeat-until.
Вычисляет факториал числа n с помощью двух разных циклов: for и while. При этом в цикле for используется оператор присваивания f:=f*i, а в цикле while - оператор инкремента i. В конце программы выводится ключ, который, вероятно, является результатом работы программы.