Помогите с Паскалем! Найти сумму всех четных трехзначных чисел которые делятся на 7. Написать программу.

var i:word; переменная через которую будут проходить все трехзначные цифры

s:longint; переменная для хранения суммы

begin

s:=0; -обнуляем переменную где будем сохранять сумму

write ('Числа: ') ;

for i:=100 to 999 do начинаем перебор всех трехзначных цифр

if i mod 2 = 0 then проверка на четность, мод - это деление по остатку, т. е в ответ записывается остаток от деления

if i mod 7 = 0 then begin write (i,' ') ; s:=s+i; end; выводим четное число кратное 7 и в тоже время суммируем его с последующими четными кратных 7 ми, в переменной s

writeln; пропускаем строку

writeln ('Сумма всех всех четных трехзначных чисел, которые делятся на 7 = ', s) ; выводим на экран результат

end.