function DaysInAYear (const Year: Word): Word;ОписФункція DaysInAYear видає кількість днів у даному Році. Рік може бути в діапазоні 0 .. 9999ПрикладbeginShowMessage ('Днів у 2000р. =' +IntToStr (DaysInAYear (2000)));end;