Вывести на экран минимальное число, которое больше 200 и делится на 17 нацело.

//Pascal ABC.NET v3.1 сборка 1172

Var
 i:integer;
begin
i:=200;
 while i mod 17<>0 do
 i:=i+1;
writeln(i);
end.