Пожаааалуйста, помогите(только не из интернета брать, там не правильно).Даны две точки...

Question

Пожаааалуйста, помогите(только не из интернета брать, там не правильно).
Даны две точки А(х1,у1) и В(х2,у2). Составить алгоритм, определяющий, которая из точек находится ближе к точке (2,5).(Паскаль).

Answer 1

const

  y = 5;

  x = 2;

var

  x1,x2,y1,y2:integer;

begin

  write('x1 = ');  readln(x1);

  write('y1 = ');  readln(y1);

  write('x2 = ');  readln(x2);

  write('y2 = ');  readln(y2);

 

  if sqrt(  (x1-x) * (x1-x)  + (y1 - y) * (y1 - y))   <   sqrt(  (x2-x) * (x2-x)  + (y2 - y) * (y2 - y)) then

    writeln('A ближе')

  else

     if sqrt(  (x1-x) * (x1-x)  + (y1 - y) * (y1 - y))   >   sqrt(  (x2-x) * (x2-x)  + (y2 - y) * (y2 - y)) then

       writeln('B ближе')

     else

       writeln('Они на одинковом расстоянии');

readln;

end.