Напечатать минимальное число больше 200, которое нацело делится на 17

Добавляем к числу n=200 растущее в цикле число m.

При определенном значении m сумма n + m делится на 17 без остатка и происходит выход из цикла while. Сумма выводится на экран.

program div_;

const n = 200;

var m: integer;

begin

m: = 0;

while (n + m) mod 17 > 0 do m: = m + 1;

write (m + n)

end.