program Summation;

var
n, i, sum, square, evenSum, twoDigitSum: integer;

begin
// а) первых n натуральных чисел
write('Enter a number n: ');
readln(n);

sum := 0;
for i := 1 to n do
begin
sum := sum + i;
end;
writeln('Sum of first ', n, ' natural numbers: ', sum);

// б) квадратов первых n натуральных чисел
square := 0;
for i := 1 to n do
begin
square := square + i * i;
end;
writeln('Sum of squares of first ', n, ' natural numbers: ', square);

// в) всех чётных чисел в диапазоне от 1 до n
evenSum := 0;
for i := 2 to n step 2 do
begin
evenSum := evenSum + i;
end;
writeln('Sum of all even numbers from 1 to ', n, ': ', evenSum);

// г) всех двузначных чисел
twoDigitSum := 0;
for i := 10 to 99 do
begin
twoDigitSum := twoDigitSum + i;
end;
writeln('Sum of all two-digit numbers: ', twoDigitSum);
end.