Сделать блок-схему, псевдокод и написать программу. Дни недели - Pascal ABC

Формулировка задачи:

Пожалуйста, помогите))) 5. Разработать алгоритм программы, которая запрашивает у пользователя номер дня недели и выводит его название или сообщает "Ошибка ввода данных".

Решение задачи: «Сделать блок-схему, псевдокод и написать программу. Дни недели»

Листинг программы

var
x:integer;
begin 
readln(x);
case x of
1:write('ПН');
2:write('ВТ');
3:write('СР');
4:write('ЧТ');
5:write('ПТ');
6:write('СБ');
7:write('ВС');
else write('шибка ввода данных');
end;
end.

Объяснение кода листинга программы

В данном коде происходит следующее:

Переменная x объявляется как целочисленная.
Ввод значения переменной x осуществляется с помощью функции readln.
С помощью оператора case проверяется значение переменной x.
В зависимости от значения переменной x выводится соответствующий день недели.
Если значение переменной x не соответствует ни одному из указанных дней недели, выводится сообщение об ошибке.