Даны координаты двух точек A (x1, y2) и B (x2, y2) в прямоугольной системе координат. Какая из этих двух точек находится дальше от начала координат?

program zz1;

var x1, x2, y1, y2, rast1, rast2:real; / / задаем переменные не целого типа

begin

write (' введите координаты первой точки '); / / вводим с клавиатуры координаты первой точки

read (x1, y1);

write (' введите координаты второй точки '); / / вводим с клавиатуры координаты второй точки

read (x2, y2);

rast1:=sqrt (sqr (x1-0) + sqr (y1-0)); / / находим расстояние от первой точки до начала координат

rast2:=sqrt (sqr (x2-0) + sqr (y2-0)); / / находим расстояние от второй точки до начала координат

if rast1 > rast2 then write (' первая точка дальше ') else write (' вторая точка дальше '); / / выводим ответ

end.