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

наверно есть и другие решения, но мне это показалось единственным верным

может быть так:var x1,x2,y1,y2:integer;                      a,b:real; begin  write ('Введите x1 и x2: ');  readln (x1,x2);  write ('Введите y1 и y2: ');  readln (y1,y2);  a:=sqrt (sqr (x1) + sqr (y1));  b:=sqrt (sqr (x2) + sqr (y2));  if a>b then writeln ('1-я точка ближе')  else writeln ('2-я точка ближе'); end.