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.
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.