Question

Помогите, пожалуйста! Как ввести числа с клавиатуры в диапазоне от -30000 до 30000?Паскаль

Answer 1

number:=-100000;
repeat
 writeln('введите число в диапазоне от -30000 до +30000'); 
 readln(number);
until (number in [-30000..30000]);