Отыскать сложение четных чисел от 1 до 10, в паскале

program zz1;

var  i, s:integer; // задаем переменные целого типа

begin

s:=0; // задаем изначальное значение для переменной суммы

for i:=1 to 10 do // организуем цикл, в котором переберем все числа от единицы до 10

if i mod 2 = 0 then s:=s + i; // проверяем условие, если число делится на два без остатка, то добавляем это число к сумме

writeln( сумма четных чисел в спектре от 1 до 10 = , s); // выводим ответ

end.