Вопрос по информатике:

Напечатать минимальное число больше 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.