Напишите пож задачу… даны две точки прямоугольной системе координат. Напишите…

Uses crt; var x1,y1,x2,y2: real; beginwriteln ('Введите x,y точки A, x,y точки B: '); read (x1,y1,x2,y2); if sqr (x1)+sqr (y1) sqr (x2)+sqr (y2) thenwriteln ('Точка B ближе.') elsewriteln ('Точки равноудалены от начала координат.'); end.