Найти сумму всех трёхзначных чисел, кратных 77. Паскаль. (использовать цикл while)

program zz1;

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

begin

i: = 100; / / задаем начальное значение для параметра цикла

while i < = 999 do / / организуем цикл, пока параметр цикла не достигнет последнего трехзначного числа

begin

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

i: = i + 1; / / увеличиваем параметр цикла на единицу

end;

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

end.