{* Дата следующего дня по введенной дате *}

Unit NEXTDAY;
Interface
Implementation
Begin
 writeln('Дата следующего дня по введенной дате');
End.

Program NextDay;

Uses NextDay.pas; {* Эту строку можно удалить *}
Var {* Необходимые переменные *}
  day     : integer;
  mon     : integer;
  year    : integer;
  lastday : integer;
  last    : boolean;
  leap    : boolean;
Begin
  writeln; {* Вывод пустой строки *}
  writeln ('Введите день месяц и год, разделенные пробелами:'); {$I-}
  read (day, mon, year); {$I+}
  If IoResult  0 Then
  Begin
    writeln ('Вы не ввели 3 числа, это что-то другое!');
    reset(input); {* Подготовка переменной input для чтения из файла *}
    readln; {* Ждем подтверждения пользователя *}
    exit;
  End;
  If year12 Then
  Begin
    mon := 1;
    year := year + 1;
  End;
  
End;
Else day := day + 1;
  writeln ('Дата следующего дня:');
write (day : 2, '/', mon : 2, '/', year);
reset(input); {* Чтение из файла через переменную input *}
readln; {* Приостановка программы. Ожидание Enter *}
End.....