Даны координаты 2 точек на плоскости. определить расстояние между ними. (координаты- x1; y1 и x2; y2), конечная формула должна выглядеть так: d= корень квадратный из выражения (x2-x1)^2 + (y2-y1)^2

Program num1;

Uses crt;

Var

x1,x2,y1,y2 : real;

d:real;

Begin

clrscr;

write('x1=');readln(x1);

write('y1=');readln(y1);

write('x2=');readln(x2);

write('y2=');readln(y2);

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

write('D=',d)

End.