cRh!, Я так и тетрадь с Паскалем не нашел. там была эта задача, с копейками.
Оффтоп
Берем две переменные, одну числовую, другую текстовую.
Числовую оставляем на ввод (ридлн по-моему, я не помню сам язык отчасти давно на Сплюс сижу) А текстовой присваиваем "копе"
далее Через оператора выбора (кейсе) присваиваем ряду значений текстовую переменную и окончание слова пример уайтлн(а,b,'окончаниекотороенадо');
хуйни понаписал
Про месяца не помню, щас если тетрадь найду перепишу исходники сюды.