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

может быть так:

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.