Напишите программу, которая вычисляет сумму:
а) первых n натуральных чисел;
б) квадратов первых n натуральных чисел;

a) begin write(seqgen(readinteger(), x -> x + 1, 0).Sum); end.б) begin write(seqgen(readinteger(), x -> x * x, 1).Sum); end.

Var n:integer;    S:real;BeginWrite('n = ');ReadLn(n);S:=0;For n:= 1 to n do    S:=S+n;WriteLn('а) S = ',S);S:=0;For n:= 1 to n do    S:=S+n*n;WriteLn('б) S = ',S);End.