Как в паскале написать что можно вводить только целое число от 1 до 360. пример: program gtgt; const e=9; k=4; var n,pn,c,en: integer; begin write('укажите номер квартиры: '); read(n); c: =e*k; pn: =(n-1) div c + 1; en: =(n-(pn-1)*c-1) div 4 + 1; writeln('подъезд ',pn,', этаж ',en) end. n - номер квартиры. как написать что можно ввести только от 1 до 360