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