Решить задачу, используя "цикл с параметром", "цикл с предусловием", "цикл с постусловием". Найти сумму и произведение первых n натуральных чисел.

program cikli;

unit math;

var

i, n, s, p:integer;

a:array[1 ... 20]of integer;

begin

writeln ('Исходный массив: ');

for i:=1 to 20 do begin

a[i]:=RandomRange (1,20);

writeln (' Элемент ', i,' = ', a[i]);

end;

writeln ('Сумму и произведения скольки первых чисел вы хотите посчитать? ');

readln (n);

s:=0; p:=1;

//цикл с параметром

For i:=1 to n do begin

s:=s+a[i];

p:=p*a[i];

end;

writeln ('Цикл с параметром');

writeln ('Сумма первых ', n,' чисел = ', s);

writeln ('Произведения первых ', n,'чисел = ', p);

//цикл с предусловием

i:=1; p:=1; s:=0;

while in do begin

s:=s+a[i];

p:=p*a[i];

i:=i+1;

end;

writeln ('Цикл с предусловием');

writeln ('Сумма первых ', n,' чисел = ', s);

writeln ('Произведения первых ', n,'чисел = ', p);

//цикл с постусловием

i:=0; s:=0; p:=1;

repeat

i:=i+1;

s:=s+a[i];

p:=p*a[i];

until i=n;

writeln ('Цикл с постусловием');

writeln ('Сумма первых ', n,' чисел = ', s);

writeln ('Произведения первых ', n,'чисел = ', p);

End.