Помогите пожалуйста!!!!Составить программу вычисления расстояния между двумя...

Question

Помогите пожалуйста!!!!Составить программу вычисления расстояния между двумя точками.Формула вычисления имеет следующий вид.

---

Answer 1

Var
z,x1,x2,y1,y2:real;
begin
writeln('Введите x1 и y1');
readln(x1,y1);
writeln('Введите x2 и y2');
readln(x2,y2);
z:=sqrt(sqr(sqr(X1)-sqr(x2)))+(sqr(Sqr(y1)-sqr(y2)));
writeln(z);
end.