к первой я вот так наковырял
program GPS;
uses crt;
var a,b,x1,x2,y1,y2:integer;
Begin clrscr;
writeln ('zadaite (x,y) dl9 A');
readln (x1,y1);
if (x1>0) and (y1>0) then a:=1;
if (x1>0) and (y1<0) then a:=4;
if (x1<0) and (y1>0) then a:=2;
if (x1<0) and (y1<0) then a:=3;
writeln ('zadaite (x,y) dl9 B');
readln (x2,y2);
if (x2>0) and (y2>0) then b:=1;
if (x2>0) and (y2<0) then b:=4;
if (x2<0) and (y2>0) then b:=2;
if (x2<0) and (y2<0) then b:=3;
if a=b then writeln ('A i B v odnom kvadrante');
if a<>b then writeln ('A i B v raznix kvadrantax');
writeln ('A naxodits9 v ',a,' kvadrante');
writeln ('B naxodits9 v ',b,' kvadrante');
readln;
end.
квадранты это же вроде четверти окружности в системе (х,у) или нет?