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

Ira

var i:word; переменная через которую будут проходить все трехзначные цифры s:longint; переменная для хранения суммыbegins:=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ми, в переменной swriteln; пропускаем строкуwriteln('Сумма всех всех четных трехзначных чисел, которые делятся на 7 = ',s); выводим на экран результатend.