比赛 20101118 评测结果 WWWWWWWWWW
题目名称 扩散 最终得分 0
用户昵称 magic 运行时间 0.000 s
代码语言 Pascal 内存使用 0.00 MiB
提交时间 2010-11-18 11:20:25
显示代码纯文本
program gls;



var
ans:longint;
a,b,n,k:longint;
ss,st:array[1..1000]of longint;
f,g:text;
       function min(a,b:longint):longint;
   begin
     if a>b then min:=b else min:=a;
   end;
   function max(a,b:longint):longint;
   begin
     if a>b then max:=a else max:=b;
   end;
begin
   assign(f,'ppg.in');
   reset(f);
   assign(g,'ppg.out');
   rewrite(g);
   readln(f,n);
   for k:=1 to n do
   begin
   readln(f,a,b);
   ss[k]:=a;
   st[k]:=b;end;
   for k:=1 to n do
   ans:=max(ans,min(ss[k],st[k]));





writeln(g,ans);
close(f);close(g);
end.