Программа

FUNCTION DateIsCorrect(Date,Month,Year:integer):boolean;
  Begin                                              { Функция проверки даты }
    DateIsCorrect:=(Year>=0)and(Month in [1..12])
                   and
                   ((Date in [1..28])
                     or
                    (Date in [1..29])and(Year mod 4 =0)
                     or
                    (Date in [1..30])and(Month in [4,6,9,11])
                     or
                    (Date in [1..31])and(Month in [1,3,5,7,8,10,12]))
  End;
BEGIN
END.