Паскаль АВС. Дана запись d1, состоящая из 3 х полей: число, номер месяца, год. Определить d2-дату следующего дня

Program 1123;

type data = record g: 0 ... 3000; mes: 1 ... 12; day: 1 ... 31; end;

var d1, d2:data; begin writeln ('Введите дату через пробел (число, месяц, год) ') ; readln (d1. day, d1. mes, d1. g) ;

d2:=d1; d2. day:=d1. day+1; with d2 do case mes of 1,3,5,7,8,10: begin if day=32 then begin mes:=mes+1; day:=1; end; end;

4,6,9,11: begin if day=31 then begin mes:=mes+1; day:=1; end; end; 2: begin if g mod 4=0 then begin if day=30 then begin mes:=mes+1; day:=1; end; end else begin if day=29 then begin mes:=mes+1; day:=1; end; end;

end;

12: begin if day=32 then begin g:=g+1; mes:=1; day:=1; end; end; end; writeln ('Следующий день ', d2. day,'.', d2. mes,'.', d2. g) ; end.