Submission #4242000

---

Source Code Expand

var
 month1,month2,days1,days2,s,i,t:longint;
begin
 readln(month1,days1);
 readln(month2,days2);
 if month1>month2 then 
  begin
   t:=month1;
   month1:=month2;
   month2:=t;
   t:=days1;
   days1:=days2;
   days2:=t;
  end;
 for i:=month1+1 to month2-1 do 
 case i of 
  1,3,5,7,8,10,12:s:=s+31;
  4,6,9,11:s:=s+30;
  2:s:=s+29;
 end;
 s:=s+abs(days1-days2);
 writeln(s);
end.
 

Submission Info

Compile Error

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

Judge Result