С клавиатуры вводятся пары вещественных чисел — координаты x и y точек на плоскости. Координаты 0,0 служат для окончания ввода.
Вывести на экран координаты точки, находящейся на максимальном расстоянии от начала координат.
PascalABC
функцией или процедурой

Ответ учителя по предмету Информатика

Var X,Y,Xm,Ym:real;

Procedure ABC();

Begin

Repeat

Write(‘x = ‘);ReadLn(x);

Write(‘y = ‘);ReadLn(y);

if (x*x+y*y)>(Xm*Xm+Ym*Ym) then

   Begin

   Xm:=x;

   Ym:=y

   End

Until (X = 0)and(Y = 0)

End;

Begin

Xm:=0;

Ym:=0;

ABC;

WriteLn(‘(‘,Xm,’,’,Ym,’)’)

End.