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

Составить сумму вычисления : а)первых 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.