Написать программа на языке Паскаль для решения задачи
По заданным координатам точек А и Б вычислить длину отрезка АБ

var

 D:real;

 x1,y1:real;

 x2,y2:real;

begin

 writeln('Укажите координату точки A(x1,y1)');

 read(x1,y1);

 writeln('Укажите координату точки B(x2,y2)');

 read(x2,y2);

 D:=sqrt(sqr(x1-x2)+sqr(y1-y2));

 writeln;

 write('Длина отрезка - ',D:1:2);

end.

Объяснение: