В Паскале

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

Var x: byte;

Begin

Write (‘ введите число от 1 до 7')

Readln (x) ;

Case x of

1: writeln (‘понедельник’) ;

2: writeln (‘вторник’) ;

3: writeln (‘среда’) ;

4: writeln (‘четверг’) ;

5: writeln (‘пятница’) ;

6: writeln (‘суббота’) ;

7: writeln (‘воскресенье’) ;

end;

Readln

End.

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