Pascal ABC net

[DiLLe]

Определить правильность даты введеную с клавиатуры где числа с 1-31 дни с 1-12 месяц. Если введены 'не корректные данные' сообщить об этом.

[Serge_Bliznykov]

{*                    OPDATE.PAS 1.21                    *}
{*     Copyright (c) TurboPower Software 1988, 1992.     *}

  function IsLeapYear(Year : Integer) : Boolean;
    {-Return True if Year is a leap year}
  begin
    IsLeapYear := (Year mod 4 = 0) 
          and (Year mod 4000 <> 0) and
            ((Year mod 100 <> 0) or (Year mod 400 = 0));
  end;


  function DaysInMonth(Month, Year : Integer) : Integer;
    {-Return the number of days in the specified month of a given year}
  begin
    case Month of
      1, 3, 5, 7, 8, 10, 12 :
        DaysInMonth := 31;
      4, 6, 9, 11 :
        DaysInMonth := 30;
      2 :
        DaysInMonth := 28+Ord(IsLeapYear(Year));
    else
      DaysInMonth := 0;
    end;
  end;

var
  dd, mm, yyyy : integer;
begin
  WriteLn('Введите три числа: день месяц год: dd mm yyyy ');
  Readln(dd, mm, yyyy);
  if yyyy<1 then Writeln('Год введён неверно!')
  else
    if (mm<1) or (mm>12) then
        Writeln('Месяц введён неверно!')
    else
       if (dd<1) or (dd>DaysInMonth(mm, yyyy)) then
          Writeln('День введён неверно!')
       else
          WriteLn('Дата является корректной!')
   Readln;
end.