program hr;
 
var x1,y1,x2,y2:real;
    da:boolean;
 
begin
write('Vvedite X1 dlia tociki A: '); readln(x1);
write('Vvedite Y1 dlia tociki A: '); readln(y1);
 
write('Vvedite X2 dlia tociki B: '); readln(x2);
write('Vvedite Y2 dlia tociki B: '); readln(y2);
 
writeln; writeln('A(',x1:0:2,',',y1:0:2,') & ','B(',x2:0:2,',',y2:0:2,')'); writeln;
da:=false;
if (x1>0) and(y1>0) and(x2<0) and(y2>0) then begin writeln('peresekaet osi "OY"'); da:=true;end;
if (x1>0) and(y1>0) and(x2<0) and(y2<0) then begin writeln('peresekaet osi "XY"'); da:=true;end;
if (x1>0) and(y1>0) and(x2>0) and(y2<0) then begin writeln('peresekaet osi "OX"'); da:=true;end;
if (x1<0) and(y1>0) and(x2<0) and(y2<0) then begin writeln('peresekaet osi "OX"'); da:=true;end;
if (x1<0) and(y1>0) and(x2>0) and(y2<0) then begin writeln('peresekaet osi "XY"'); da:=true;end;
if (x1<0) and(y1<0) and(x2>0) and(y2<0) then begin writeln('peresekaet osi "OY"'); da:=true;end;
 
if (x1<0) and(y1>0) and(x2>0) and(y2>0) then begin writeln('peresekaet osi "OY"'); da:=true;end;
if (x1<0) and(y1<0) and(x2>0) and(y2>0) then begin writeln('peresekaet osi "XY"'); da:=true;end;
if (x1>0) and(y1<0) and(x2>0) and(y2>0) then begin writeln('peresekaet osi "OX"'); da:=true;end;
if (x1<0) and(y1<0) and(x2<0) and(y2>0) then begin writeln('peresekaet osi "OX"'); da:=true;end;
if (x1>0) and(y1<0) and(x2<0) and(y2>0) then begin writeln('peresekaet osi "XY"'); da:=true;end;
if (x1>0) and(y1<0) and(x2<0) and(y2<0) then begin writeln('peresekaet osi "OY"'); da:=true;end;
 
if not da then writeln('Eti tociki ne peresekaiyt ni odny osi');
 
readln;
end.