написать программу, которая вычисляет сумму первых четных целых n положительных чисел, количество суммированных чисел должно вводиться во время работы программы.

program sum_ch; / /Название программы.

var n, sum, j, x: integer; / /Раздел описания переменных.

begin / /Начало.

writeln ('Введите количество суммированных чисел'); / /Запрос количества чисел.

readln (n); / /Вводим с клавиатуры.

while j < n do begin

x : = x + 1;

if x mod 2 = 0 then begin / /В этом условии проверяем на чётность.

sum : = sum + x; / /Если чётное - тогда суммируем.

j : = j + 1;

end;

end;

writeln ('Сумма ', n, ' чётных чисел составляет ', sum); / /Выводим сумму.

end. / /Конец.