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

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.