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

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.