Var x1,y1,x2,y2,d1,d2:real;
begin
write(' Введите x1,y1,x2,y2');
read(x1,y1,x2,y2);
d1:=sqrt(x1*x1+y1*y1);
d2:=sqrt(x2*x2+y2*y2);
if d1=d2 then write('точки одинаково удалены от начала координат');
if d1wrire(d1,' ',d2);
end.
блок-схема будет в файле
