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

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.