Составить программу для нахождения произведение чисел от 1 до n. Для циклов: 1)for 2)while 3)until

Т.к. требуется использовать цикл until, то значит требуется код на языке Паскаль.

1) цикл for

program p_for

var   p:  real;   i, n: integer;begin   readln(n);   p := 1;//начальное значение   for i := 1 to n do       p := p * i;   writeln(p);

end. 

2) цикл while

program p_while

var   p:  real;   i, n: integer;begin   readln(n);

   i := 1;   p := 1;//начальное значение

   while i <= n do    begin      p := p * i;      i := i + 1;  end;  writeln(p);

end. 

3) цикл until

program p_until

var   p:  real;   i, n: integer;begin   readln(n);

   i := 1;   p := 1;//начальное значение

   repeat      p := p * i;      i := i + 1;   until i > n;   writeln(p);

end.