program NextDayDate;

var
day, month, year: integer;

procedure CalculateNextDayDate$varday,month,year:integer$;
var
daysInMonth: array $$\mathrm{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${}^{\prime }Последнийденьмесяца{!}^{\prime }$;
writeln${}^{\prime }Снаступающимновымгодом{!}^{\prime }$;
writeln${}^{\prime }Завтра1.1{.}^{\prime },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${}^{\prime }Введитецифрамисегодняшнююдату(число,месяц,год){:}^{\prime }$;
readln$day,month,year$;

CalculateNextDayDate$day,month,year$;
end.