Pascal Для новичков
A. Найди число-
0
Имя входного файла
стандартный ввод
Имя выходного файла
стандартный вывод
Ограничение по времени
2 секунды
Ограничение по памяти
64 мегабайта
Дано число n. Необходимо найти минимальное число, большее n, которое нацело делится на 19.

Формат входных данных
Вводится целое число n (1≤n≤230).
Формат выходных данных
Требуется вывести искомое число.

var n, m:integer;beginread(n);m:=n+1;while m mod 19<>0 do beginif (m>n) and (m mod 19=0) then break;m:=m+1;end;write(m);end.