Составить сумму вычисления:

а) первых n натуральных чисел.

б) первых n четных, первых n нечетных

а)

var i, n, s: integer;

begin

readln (n) ;

s:=0;

for i:=1 to n do begin

s:=s+i;

end;

writeln (s) ;

end.

б)

var a, n, i, s: integer;

begin

readln (n) ;

s:=0;

a:=2;

for i:=1 to n do begin

s:=s+a;

a:=a+2

end;

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

a:=1;

s:=0;

for i:=1 to n do begin

s:=s+a;

a:=a+2;

end;

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

end.