1.2.1 Milking Cows

Milking Cows

Three farmers rise at 5 am each morning and head for the barn to milk three cows. The first farmer begins milking his cow at time 300 (measured in seconds after 5 am) and ends at time 1000. The second farmer begins at time 700 and ends at time 1200. The third farmer begins at time 1500 and ends at time 2100. The longest continuous time during which at least one farmer was milking a cow was 900 seconds (from 300 to 1200). The longest time no milking was done, between the beginning and the ending of all milking, was 300 seconds (1500 minus 1200).

Your job is to write a program that will examine a list of beginning and ending times for N (1 <= N <= 5000) farmers milking N cows and compute (in seconds):

• The longest time interval at least one cow was milked.
• The longest time interval (after milking starts) during which no cows were being milked.

PROGRAM NAME: milk2

INPUT FORMAT

Line 1:	The single integer
Lines 2..N+1:	Two non-negative integers less than 1000000, the starting and ending time in seconds after 0500

SAMPLE INPUT (file milk2.in)

3
300 1000
700 1200
1500 2100

OUTPUT FORMAT

A single line with two integers that represent the longest continuous time of milking and the longest idle time.

SAMPLE OUTPUT (file milk2.out)

900 300

{
ID: makeeca1
PROG: milk2
LANG: PASCAL
}
program milk2;
var a,b:array[1..5000]of longint;
    i,n,x,y,ansx,ansy:longint;
procedure qsort(l,r:longint);
var i,j,t,x,y:longint;
begin
  i:=l;j:=r;x:=random(r-l+1)+l;y:=b[x];x:=a[x];
  repeat
    while (a[i]<x)or((a[i]=x)and(b[i]<y)) do inc(i);
    while (a[j]>x)or((a[j]=x)and(b[j]>y)) do dec(j);
    if i<=j then begin t:=a[i];a[i]:=a[j];a[j]:=t;
                       t:=b[i];b[i]:=b[j];b[j]:=t;inc(i);dec(j);end;
  until i>j;
  if i<r then qsort(i,r);
  if l<j then qsort(l,j);
end;
begin
  assign(input,'milk2.in');reset(input);
  assign(output,'milk2.out');rewrite(output);
  readln(n);
  fillchar(a,sizeof(a),0);
  fillchar(b,sizeof(b),0);
  for i:=1 to n do readln(a[i],b[i]);
  randomize;qsort(1,n);

  x:=a[1];y:=b[1];ansx:=0;ansy:=0;
  for i:=2 to n do
  begin
    if a[i]>y then 
    begin
      if y-x>ansx then ansx:=y-x;    
      if a[i]-y>ansy then ansy:=a[i]-y;
      x:=a[i];y:=b[i];
    end else  if b[i]>y then y:=b[i];
  end;
  if y-x>ansx then ansx:=y-x;
  writeln(ansx,' ',ansy);
  close(output);
end.