В Паскале

Составьте программу, определяющую название дня недели по его номеру: 1 - Понедельник,  2 - Вторник и т.д. При вводе числа вне диапазона [1..7] программа должна выдать сообщение об ошибке

 

Var x: byte;BeginWrite(‘ введите число от 1 до 7')Readln(x);Case x of1: writeln(‘понедельник’);2: writeln(‘вторник’); 3: writeln(‘среда’); 4: writeln(‘четверг’); 5: writeln(‘пятница’); 6: writeln(‘суббота’); 7: writeln(‘воскресенье’);end;ReadlnEnd.

 я не помню как чтоб выдало ошибку ..пили если больше х то ошибка