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

program zz1;
var i, s:integer; // задаем переменные целого типа
begin
for i:=12 to 30 do // организуем цикл, в котором переберем все числа от 12-ти до 30
if i mod 2 = 0 then s:=s + i; // проверяем, если число делится на два без остатка, то прибавляем его к сумме
writeln( сумма четных чисел от 12-ти до 30 = , s); // выводим ответ
end.