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

program zz1;

var a, n, i:integer; / / задаем переменные целого типа

begin

write (' введите n '); / / вводим с клавиатуры число

read (n);

for i:=1 to n do

a:=a + i;

writeln (' сумма первых ', n, ' натуральных чисел = ', a); / / выводим первый ответ

a:=0;

for i:=1 to n do

a:=a + i * i;

writeln (' сумма квадратов первых ', n, ' натуральных чисел = ', a); / / выводим второй ответ

a:=0;

for i:=1 to n do

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

writeln (' сумма всех четных чисел = ', a); / / выводим третий ответ

a:=0;

for i:=1 to n do

if (i > 9) and (i < 100) then a:=a + i;

writeln (' сумма всех двухзначных чисел = ', a); / / выводим четвертый ответ

end.