Напишите программу в Паскале) написать программу которая вычисляет дату следующего дня. Введите цифрами сегодняшнюю дату (число, месяц, год) 31 12 1998

program z7;

var

day:integer;

month:integer;

year:integer;

last:boolean;

r:real;

l:integer;

begin

writeln ('Введите сегодняшнию дату');

writeln ('Число месяц год');

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 ('Последний день месяца');

day:=l;

if month=12

then begin

month:=1; year:=year + 1;

writeln ('С Новым Годом'); end

else month:=month + 1; end

else day:=day + 1; writeln ('Завтра ', day,'.', month,'.', year);

readln;

end.