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