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

program zz1;

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

begin

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

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

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

end.