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

program zz1;

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

begin

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

read(x1,y1);

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

read(x2,y2);

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

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

if rast1 lt; rast2 then write( первая точка поближе ) else write( 2-ая точка поближе ); // выводим ответ

end.