Илья1992

uses crt;
var d,m,d1,m1:integer;
k:byte;
begin
clrscr;{проверим правильность введенной даты}
repeat
k:=0;
writeln('Введите день и месяц високосного года');
readln(d,m);case m of
1,3,5,7,8,10,12:case d of
1..31:k:=k
else k:=k+1
end;4,6,9,11:case d1 of
1..30:k:=k
else k:=k+1
end;
2:case d of 1..28:k:=k
else k:=k+1
end;
else k:=k+1;
end;if k>0 then writeln('Дата введена неверно!');
until k=0;
clrscr;
{вычислим следующую дату}
writeln('Заданная дата:');case d of
1..9:write('0',d,'.');
else write(d,'.');
end;
case m of1..9:write('0',m);
else write(m);
end;
writeln;
case m of12:case d of
31:begin
d1:=1;
m1:=1;
end else
begin
d1:=d+1;
m1:=m;
end; end;
1,3,5,7,8,10:case d of
31:begin
d1:=1;
m1:=m1+1; end
else
begin
d1:=d+1;
m1:=m; end
end;
4,6,9,11:case d of
30:begin
d1:=1; m1:=m+1;
end
else
begin
d1:=d+1; m1:=m;
end;
end;
2:case d of
28:begin d1:=1;
m1:=3;
end
else
begin d1:=d+1;
m1:=m;
end;
end;
end;writeln('Следующая дата:');
case d1 of
1..9:write('0',d1,'.');
else write(d1,'.');
end;case m1 of
1..9:write('0',m1);
else write(m1);
end;
readlnend.

ww01031977

а задание на программу можно?? а то мне кажется что она может быть раз в пять меньше.