Напишите программу на языке паскаль, которая вычесляет сумму:

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

б) квадратов первых n натуральных чисел;

в) всех чётных чисел в диапазоне от 1 до n;

г) всех двузначных чисел.

Var

i, s1, s2, s3, s4, n: integer;

begin

write ('n = ') ;

readln (n) ;

s1 : = 0;

s2 : = 0;

s3 : = 0;

s4 : = 0;

for i : = 1 to n do

begin

s1 : = s1 + i;

s2 : = s2 + sqr (i) ;

if i mod 2 = 0 then s3 : = s3 + i;

end;

for i : = 10 to 99 do s4 : = s4 + i;

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

writeln ('Сумма квадратов первых n натуральных чисел: ', s2) ;

writeln ('Сумма всех четных чисел: ', s3) ;

writeln ('Сумма всех двухзначных чисел: ', s4) ;

end.