Write a program that calculates the date of the next day. Enter in numbers today’s date (day, month, year)

program z7;
var
day: integer;
month: integer;
year: integer;
last: boolean;
r: real;
l: integer;
begin
writeln (‘Enter today’s date’);
writeln (‘Day month year’);
readln (day, month, year);
last: = FALSE;
case month of
1,3,5,7,8,10,12: if day = 31
then last: = TRUE;
4,6,9,11: if day = 30
then last: = TRUE;
2: if day = 28 then
begin
r: = year mod 4; if r <> 0
then last: = TRUE;
end;
end; {case}
if last
then begin
writeln (‘Last day of the month’);
day: = l;
if month = 12
then begin
month: = 1; year: = year + 1;
writeln (‘Happy New Year’); end
else month: = month + 1; end
else day: = day + 1; writeln (‘Tomorrow’, day, ‘.’, month, ‘.’, year);
readln;
end.