Составить программу для вычисления суммы четных чисел натурального ряда от 1 до 100

var n: byte; //Заводим переменную для числа.

sum: integer; //И для суммы.

begin //Начало.

for n := 1 to 100 do //Циклом проходимся по заданному диапазону.

if n mod 2 = 0 then //Если число кратно 2. 

sum := sum + n; //Прибавляем его к общей сумме.

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

end.