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

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

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

begin //Начало.

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

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

while j lt; 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. //Конец.