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

varz,x1,x2,y1,y2:real;beginwriteln('Введите 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.