program pet;
var x,y,c,z,a,b: Real;
begin
    writeln('введите А(x,y)');
    readln(x,y);
    writeln('введите B(c,z)');
    readln(c,z);
    a:=sqrt(sqr(x)+sqr(y));
    b:=sqrt(sqr(c)+sqr(z));
    if a<b then
    begin
        writeln('точка А ближе');
    end
    else
    if a>b then
    begin
      writeln('точка B ближе');
    end
    else
    begin
    writeln('точки находятся на одинаковом расстоянии');
    end;
 end.