разобраться с оператором CASE

[Dante3495One]

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

[min@y™]

case - это легко. дойдёшь до указателей и динамической памяти – будет трэш.

case dow of
  1: s:= 'понедельник';
  2: s:= 'вторник';
  // и т.д.
  7: s:= 'воскресенье';
else s:= 'ЧЗХ?';
end;

case age mod 100 of
  11..14: s:= 'лет';
else case age mod 10 of
       1: s:= 'год';
       2..4: s:= 'года';
     else s:= 'лет';
     end;
end;

attention, achtung, внимание, увага!
Код не отлаживал, писал углём на заборе, в темноте, на морозе в –11°С, во время секса с красивой женщиной, стоя на одной ноге.