Написать программу,которая вычисляет дату следующего дня.( Pascal)Ниже рекомендуемый вид работы программы.(данные введенные пользователем,выделены жирным шрифтом)Введите цифрами сегодняшнюю дату(число,месяц,год) 31 12 1998Последний день месяца!С наступающим новым годом!Завтра 1.1.2000

Предыдущий
вопрос Следующий
вопрос

program NextDayDate;

var
day, month, year: integer;

procedure CalculateNextDayDate(var day, month, year: integer);
var
daysInMonth: array [1..12] of integer = (31,28,31,30,31,30,31,31,30,31,30,31);
begin
if (month = 12) and (day = 31) then
begin
writeln('Последний день месяца!');
writeln('С наступающим новым годом!');
writeln('Завтра 1.1.', year + 1);
end
else if (day = daysInMonth[month]) then
begin
day := 1;
month := month + 1;
end
else
begin
day := day + 1;
end;
end;

begin
write('Введите цифрами сегодняшнюю дату (число, месяц, год): ');
readln(day, month, year);

CalculateNextDayDate(day, month, year);
end.