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.