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

Program tocka; var a,b,c: real; begin writeln('введите две точки'); readln(a,b); if (abs(a)< abs(b)) then writeln('ближе точка ', a); if (abs(a)> abs(b)) then writeln('ближе точка ', b); if (abs(a)=abs(b)) then writeln('они равноудалены '); end.

Var   xa,ya,xb,yb,d2a,d2b: real; begin   write('введите координаты (x,y) точки а: '); readln(xa,ya);   write('введите координаты (x,y) точки b: '); readln(xb,yb);   d2a: =sqr(xa)+sqr(ya); d2b: =sqr(xb)+sqr(yb);   if d2a< d2b then writeln('точка а расположена ближе к началу координат')   else       if d2b< d2a then writeln('точка b расположена ближе к началу координат')       else writeln('обе точки равноудалены от начала координат') end. тестовое решение: введите координаты (x,y) точки а: 5 -3.7 введите координаты (x,y) точки b: -4.2 3.8 точка b расположена ближе к началу координат

uses graphabc;  

var  

p:array[0..3]of point, t:integer;  

procedure lines;  

begin  

  line(100,100,300,300);  

  line(100,300,300,100);  

  line(200,100,200,300);  

  line(100,200,300,200);  

end;  

begin  

p[0].x := 150; p[0].y := 200;  

p[1].x := 200; p[1].y := 250;  

p[2].x := 250; p[2].y := 200;  

p[3].x := 200; p[3].y := 150;  

SetBrushColor(clblack);  

readln(t);  

if t < 0 then  

begin  

  Polygon(p[0],p[1],p[2],p[3]);  

  lines;  

end;  

if t > 0 then  

begin  

  circle(200,200,50);  

  lines;  

end;  

end.

Program u2; const n=6; var i,max: integer; a,b: array [1..n] of integer; begin a[1]: =2; a[2]: =5; a[3]: =7; a[4]: =-2; a[5]: =0; a[6]: =8; writeln('a: '); for i: =1 to n do write(a[i]: 3); writeln; writeln('b: '); for i: =1 to n do    begin   b[i]: = (a[i]-1);   write(b[i]: 3);   end; writeln; max: =a[1]; for i: =1 to n do   begin   if a[i]> max then max: = a[i];   b[i]: =max;   end; writeln('new b: '); for i: =1 to n do write(b[i]: 3); writeln; end. результат: a:   2   5   7 -2   0   8 b:   1   4   6 -3 -1   7 new b:   2   5   7   7   7   8