написать программу,которая вычисляет сумму первых четных целых 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. //Конец.