Решить , используя «цикл с параметром», «цикл с предусловием», «цикл с постусловием». найти сумму и произведение первых 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 i< > n 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.