uses crt;
var maxx,maxy,i,m,x,y,n:integer;
bx:array[1..1000] of integer;
by:array[1..1000] of integer;
bx1:array[1..1000] of integer;
by1:array[1..1000] of integer;
begin;
clrscr;
writeln('Введите координаты пункта А(x и y через Enter) ');
readln(x);
readln(y);
writeln('Введите количество пунктов В');
readln(m);
clrscr;
FOR i := 1 TO m do
begin
gotoxy(1,1);writeln('Введите координаты пунктов B(x и y через Enter)');
readln(bx[i]);
readln(by[i]);
end;
FOR i := 1 TO m do
begin
bx1[i] := SQR(bx[i]*bx[i]);
by1[i] := SQR(by[i]*by[i]);
IF (bx1[i] > x) AND (by1[i] > y) AND (bx1[i] > maxx) AND (by1[i] > maxy) THEN
begin
maxx := bx1[i]; maxy := by1[i]; n := i;
end;
end;
clrscr;
writeln('Точка A ',x,',',y);
writeln('Точки B ');
for i:=1 to m do
begin
writeln(bx[i],',',by[i]);
end;
writeln('Наиболее удалена точка с координатами ', bx[n], ',', by[n]);
end.