Написать программу для Паскаля:

Дата вводится в формате "дд. мм. гг". Записать словесно название месяца и полностью указать год. Например, для 01.02.98 вывести "1 февраля тысяча девятьсот девяносто восьмой год", для 20.05.02 - "20 мая две тысячи второй год" и т. д.

Тут через оператор case нужно указывать вручную, ну я пока что легких путей не вижу. Легкая программа, но замудренная ...

Пример:

case a of

01.02.98 : writeln ('1 февраля тысяча девятьсот девяносто восьмой год');

02.02.98 : writeln (2 февраля тысяча девятьсот девяносто восьмой год');

Тут дата : writeln ('Тут что выводить');

итд

end;