Question

На плоскости заданы две точки А с координатами (х1, у1) и В с координатами (х2,у2) Координаты точек вводятся с клавиатуры. Определить какая из точек ближе к началу координат и вывести на экран соответсвующее сообщение
Составьте пожалуста программу в паскале

Answer 1

Program gt;
var x1,x2,y1,y2:real;
begin
readln(x1,y1,x2,y2);
if((x1*x1+y1*y1)>(x2*x2+y2*y2))then writeln('2-точка')else
writeln('1-точка');
end.