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

Var X,Y,Xm,Ym:real;Procedure ABC();BeginRepeatWrite('x = ');ReadLn(x);Write('y = ');ReadLn(y);if (x*x+y*y)>(Xm*Xm+Ym*Ym) then   Begin   Xm:=x;   Ym:=y   EndUntil (X = 0)and(Y = 0)End;BeginXm:=0;Ym:=0;ABC;WriteLn('(',Xm,',',Ym,')')End.