Написать программу, в которую пользователь вводит число а компьютер выводит сообщение о том в каком интеревале оно лежит 1 до 10, от 11 до 20, от 21 до 30, и 31 до 40, В паскале.

program interval;

var i:integer;

begin

writeln ('Введите целое число от 1 до 40');

readln (i);

case i of

1 ... 10: writeln ('Число в интервале от 1 до 10');

11 ... 20: writeln ('Число в интервале от 11 до 20');

21 ... 30: writeln ('Число в интервале от 21 до 30');

31 ... 40: writeln ('Число в интервале от 31 до 40');

else writeln ('Число выходит за пределы интервала от 1 до 40');

end

end.