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

program zz1;

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

begin

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

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

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

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

end.