Question

Помогите пожалуйста, 2 и 3 задача.
Паскаль.
Цикл for

Answer 1

2.

program raf105;

var s,n,i:integer;

begin

write('N = ');

readln(n);

for i:=1 to n do

 s += 4*i;

writeln('S = ',s);

end.

3.

program raf105;

var kol,sum,sari,i:integer;

begin

for i:=-4 to 15 do

begin

 kol += 1;

 sum += i;

end;

sari:= round(sum/kol);

writeln('Среднее арифметическое: ',sari);

end.