Задача на вычисление даты

[Max90]

Добрый вечер!
У меня не получается написать программу на Паскале по следующей задаче: эра Скалигера отсчитывает даты в днях, начиная с 1-ого января 4713 года до нашей эры. Вычислить дату(год, месяц, число) по вводимому номеру дня эры Скалигера.
Примечание:использовать григорианское летоисчисление. Учесть отсутствие нулевого года.
ПОЖАЛУЙСТА, ПОМОГИТЕ!

[Хыиуду]

Из номера дня вычесть 365 (получится 1 января 4172 - високосный год), потом поделить на 365.25, взять целую часть - получим количество прошедших лет, добавляем это количество к 4172 г. до н.э. с учетом отсутствия нулевого года - получаем искомый год. Количество лет умножаем на 365.25, вычитаем результат из начального - получаем номер дня в году. По номеру дня определяем дату.

[Max90]

О, спасибо! Щас попробую сделать....