Вводится n. отыскать творенье естественных чисел от 1 до n. 3

program zz1;

var n, i, p:integer; // вводим переменную целого типа

begin

write( введите число n );  // вводим с клавиатуры число

read(n);

p:=1;

for i:=1 to n do  // 1 метод

begin

p:=p * i;

end;

writeln( творение чисел от 1 до n = , p);  // выводим ответ

p:=1;

i:=1;

while ilt;=n do  // 2 метод

begin

p:=p * i;

i:=i + 1;

end;

writeln( творение чисел от 1 до n = , p);  // выводим ответ

p:=1;

i:=1;

repeat  // 3 способ

p:=p * i;

i:=i + 1;

until igt;n;

writeln( творение чисел от 1 до n = , p);  // выводим ответ

end.