C4.

На плоскости дан набор точек с целочисленными координатами. Найти площадь наибольшего четырёхугольника, у которого 2 точки лежат на оси ОХ, а 2 другие по разные стороны от оси ОХ.

Type

mas=array[,]of integer;

var

i, n:integer;

a:mas;

b:array[1 ... 4]of integer;

begin

write ('Сколько точек: ') ;

readln (n) ;

setlength (a, 3, n+1) ;

for i:=1 to n do

begin

write ('Введите координаты точки: ') ;

readln (a[1, i], a[2, i]) ;

end;

for i:=1 to n do

begin

if a[2, i]=0 then

begin

if b[1]=0 then b[1]:=i else if a[1, i]
if b[2]=0 then b[2]:=i else if a[1, i]>a[1, b[2]] then b[2]:=i;

end;

if a[2, i]>0 then

if b[3]=0 then b[3]:=i else if a[2, i]>a[2, b[3]] then b[3]:=i;

if a[2, i]<0 then

if b[4]=0 then b[4]:=i else if a[2, i]
end;

writeln ('Координаты вершин четырехугольника с наибольшей площадью:') ;

for i:=1 to 4 do write (' (', a[1, b[i]],'; ', a[2, b[i]],') ')

end.