Разработать блок-схему алгоритма - Pascal

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

Var
I,n:integer;
S:real;
Begin
S:=1.0;
Repeat
Write('n=');
Readln(n);
Until n>=0:
For I:=2 to n do s:=s*i;
Writeln('n!=',s:0:0);
End.

Решение задачи: «Разработать блок-схему алгоритма»

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

program aaaaa;
 
var
  I, n: integer;
  S: real;
 
begin
  S := 1.0;
  repeat
    Write('n=');
    Readln(n);
  until n >= 0;
  for I := 2 to n do 
    s := s * i;
  Writeln('n!=', s:0:0);
end.

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

Объявление программы: program aaaaa;
Объявление переменных: I, n - целочисленные значения, S - вещественное значение.
Присвоение начального значения переменной S: S := 1.0;
Цикл повторения ввода значения n до тех пор, пока оно не будет больше или равно 0:repeat Write('n='); Readln(n); until n >= 0;
Цикл умножения переменной S на значения от 2 до n: for I := 2 to n do s := s * i;
Вывод значения факториала n в консоль: Writeln('n!=', s:0:0);
Конец программы: end.