uses crt;
var x1,y1,x2,y2,d1,d2:real;
   
begin
 clrscr;
   writeln('Введите координаты первой точки:');
   write('x1=');
   readln(x1);
   write('y1=');
   readln(y1);
   writeln('Введите координаты второй точки:');
   write('x2=');
   readln(x2);
   write('y2=');
   readln(y2);
   d1:=sqrt(x1*x1+y1*y1);
   d2:=sqrt(x2*x2+y2*y2);
   if d1>d2 then  writeln('Первая точка ближе')
            else if d1<d2 then writeln('Вторая точка ближе')else writeln('Расстояния равны')
                    
  
end.