Написать программу, в которую пользователь вводит число а компьютер выводит сообщение о том в каком интеревале оно лежит

program interval;var i:integer;beginwriteln(\'Введите целое число от 1 до 40\');readln(i);case i of1..10: writeln(\'Число в интервале от 1 до 10\');11..20: writeln(\'Число в интервале от 11 до 20\');21..30: writeln(\'Число в интервале от 21 до 30\');31..40: writeln(\'Число в интервале от 31 до 40\');else writeln(\'Число выходит за пределы интервала от 1 до 40\');endend.