Как в паскале написать что можно вводить только целое число от 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