Submission #3333688

---

Source Code Expand

var
 date:ansistring;
 year,month,day,i,j,k:longint;
 count:array[1..12] of 28..31=(31,28,31,30,31,30,31,31,30,31,30,31);
function leap_year(year:longint):boolean;
begin
 if (year mod 400=0) or ((year mod 4=0) and (year mod 100<>0)) and (year mod 3600<>0) then exit(true) else exit(false);
end;
begin
 readln(date);
 val(copy(date,1,4),year);
 val(copy(date,6,2),month);
 val(copy(date,9,2),day);
 for i:=month to 12 do
  begin
   if leap_year(year) and (i=2) then count[2]:=29 else count[2]:=28;
   for j:=day to count[i] do
    if (year mod i=0) and (year div i mod j=0) then
     begin
      write(year);
      if i<10 then write('/0',i) else write('/',i);
      if j<10 then write('/0',j) else write('/',j);
      writeln;
      halt;
     end;
     day:=1;
  end;
  writeln(year+1,'/01/01');
end.

Submission Info

Compile Error

/usr/bin/ld.bfd: warning: ./link.res contains output sections; did you forget -T?

Judge Result