Вводится номер дня недели. Вывести его расшифровку в текстовом виде. Если номера такого нет " Неправильный ввод'.

Паскаль!

Program day; var x:byte; beginwriteln ('Введите число, чтобы узнать, какому дню недели оно соответствует:') ; Readln (x) ; Case x of0: writeln ('Такого дня недели не существует.') ; 1: writeln ('Понедельник.') ; 2: writeln ('Вторник.') ; 3: writeln ('Среда.') ; 4: writeln ('Четверг.') ; 5: writeln ('Пятница.') ; 6: writeln ('Суббота.') ; 7: writeln ('Воскресенье.') ; 8 ... 1000: writeln ('еправильный ввод.') ; end; end.