программы с циклом ПОКА и ДО (Тема 8)

program minchislo200;
var
  a,m:byte;
begin

  m:=200;
  while m mod 17 <> 0 do
    m:=m+1;
  writeln('Минимальное число > 200 и кратное 17 = ',m);

end.