Program proga;
uses crt;
label no;
var x,y,z:integer;
begin
clrscr;
writeln ('Napishite chislo');
readln (x);
writeln ('Napishite mesyac');
readln (y);
writeln ('Napishite year');
readln (z);
case y of
1:case x of
1..30:x:=x+1;
31:y:=y+1;

end;
2:case x of
1..27:x:=x+1;
else y:=y+1;
x:=1;
end;
3:case x of
1..30:x:=x+1;
else y:=y+1;
x:=1;
end;
4:case x of
1..29:x:=x+1;
else y:=y+1;
x:=1;
end;
5:case x of
1..30:x:=x+1;
else y:=y+1;
x:=1;
end;
6:case x of
1..29:x:=x+1;
else y:=y+1;
x:=1;
end;
7:case x of
1..30:x:=x+1;
else y:=y+1;
x:=1;
end;
8:case x of
1..30:x:=x+1;
else y:=y+1;
x:=1;
end;
9:case x of
1..29:x:=x+1;
else y:=y+1;
x:=1;
end;
10:case x of
1..30:x:=x+1;
else y:=y+1;
x:=1;
end;
11:case x of
1..29:x:=x+1;
else y:=y+1;
x:=1;
end;
12:case x of
1..30:x:=x+1;
else y:=1;
x:=1;
z:=z+1;
end;
end;
write (x);
write ('.',y);
write ('.',z);
readkey;
no:
end.