spl20.PAS

{* Какая точка ближе к началу координат *}

Unit SPL20;
Interface
Implementation
Begin
 writeln('Какая точка (A или B) ближе к началу координат.');
End.

Program pas;

Uses spl20.pas; {* Эту строку можно удалить *}
{ какая точка (A или B) ближе к началу координат }
Var {* В работе нам потребуются переменные: *}
  x1 : real;
  y1 : real;
  x2 : real;
  y2 : real;
  d1 : real;
  d2 : real;
Begin
  writeln('введите A(X1, Y1) и B(X2, Y2)');
  readln( x1, y1, x2, y2 );
  d1 := sqrt(sqr(y1) + sqr(x1));
  d2 := sqrt(sqr(y2) + sqr(x2));
  If d1d2 Then
    writeln('Точка B ближе')
  Else writeln('Одинаково');
End.