{ Заданы 2 точки. Определить какой из отрезков AO или BO образует больший угол с осью OX. }

uses crt;
var x1,x2,y1,y2 : longint;
    a,b,a1,b1 : real;
begin
 clrscr;
writeln('коорд. точки А');
write('x1=');readln(x1);
write('y1=');readln(y1);
writeln('коорд. точки В');
write('x2=');readln(x2);
write('y2=');readln(y2);
a:=sqrt(x1*x1+y1*y1);
b:=sqrt(x2*x2+y2*y2);
a1:=y1/a;b1:=y2/b;
if a1>b1
then write('отрезок 
OA обр. бол. угол ')
else write('отрезок OB
 обр. бол. угол');
 readln;
end.