Pascal для новичков a. найди число- 0 имя входного файла стандартный ввод имя выходного файла стандартный вывод ограничение по времени 2 секунды ограничение по памяти 64 мегабайта дано число n. необходимо найти минимальное число, большее n, которое нацело делится на 19. формат входных данных вводится целое число n (1≤n≤230). формат выходных данных требуется вывести искомое число.
begin
read(n);
m:=n+1;
while m mod 19<>0 do begin
if (m>n) and (m mod 19=0) then break;
m:=m+1;
end;
write(m);
end.