Дан фрагмент программы (использующий цикл с предусловием): k: =0; while k< 10 do begin k: = k+1; p: =k*k; writeln(p); end что выводится на экран в результате выполнения данного фрагмента? напишите полный текст программы вычисляющей произведение натуральных чисел от 1 до n значение n программа запрашивает у пользователя

1
4
9
16
25
36
49
64
81
100
(в результате выполнения данного фрагмента выводится это)

Напишите полный текст программы вычисляющей произведение натуральных чисел от 1 до n значение n программа запрашивает у пользователя

Я решил через "for". Если надо "While" напиши

var s,n,i:integer;
begin
read(n);
s:=1;
for i:=1 to n do s:=s*i;
writeln(s);
end.