написать в программе паскаль

Question

написать в программе паскаль

---

Answer 1

var x,y,dist:real;

begin

   readln(x,y);

   dist:=sqrt(x*x+y*y);

   readln(x,y);

   x:=sqrt(x*x+y*y);

   if (x>dist) then writeln('2-я точка ближе')

      else if (x

         else writeln('Одинаково')

end.