Решение задачи районной олимпиады 11_1.

program Olimp_11_1;
var
i,n, xmax, ymax, xmin, ymin:integer;
x,y: array[0..100] of integer;
f,g:text;

begin
assign (f,'input.txt');
reset (f);
readln (f,n);

For i:= 1 to n do
readln(f,x[i], y[i]);

close (f);

xmax:=x[1];
xmin:=x[1];
ymax:=y[1];
ymin:=y[1];

For i:=2 to n do begin
if x[i]>xmax then xmax:=x[i];
if x[i]<xmin then xmin:=x[i];
if y[i]>ymax then ymax:=y[i];
if y[i]<ymin then ymin:=y[i];
end;

assign (g,'output.txt');
rewrite (g);
write (g,xmax,' ',ymax,' ',xmin,' ',ymin);
close (g);
end.