Напишите программу, которая бы запрашивала номер дня недели, и в ответ печатала бы название этого дня - Free Pascal

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

В общем дошел до оператора Case И вот в низу задачки такие. Напишите программу, которая бы запрашивала номер дня недели, и в ответ печатала бы название этого дня («понедельник», «вторник» и так далее). В) Пусть пользователь введет число — свой возраст в годах. Ваша программа должна напечатать фразу: «Вам столько-то лет» с правильным окончанием, например: «Вам 20 лет», или «Вам 34 года», или «Вам 41 год». Подсказка: надо определить последнюю цифру года операцией MOD 10. Некоторые числа выпадают из общего правила, их надо проверить особо (например, 11, 12, 13, 14). Их как я понял можно решить через if,или какой другой способ. Но я не как не пойму ка решить их через case?(

Решение задачи: «Напишите программу, которая бы запрашивала номер дня недели, и в ответ печатала бы название этого дня»

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

if y>=21 then ...
else WriteLn('До свидания.');

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

В данном коде выполняется следующая последовательность действий:

Запрашивается номер дня недели с помощью функции ReadLn().
Переменная y принимает значение номера дня недели.
Выполняется проверка if y>=21, если условие истинно, то выполняется блок кода после else.
Выводится сообщение «До свидания.» с помощью функции WriteLn().
Код завершается.