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

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.