Напишите программу, паскаль. Пожалуйста

Question

Напишите программу, паскаль. Пожалуйста

---

Answer 1

Var
   x1,y1,x2,y2:real;
Begin
Write('x1 = ');Read(x1);
Write('y1 = ');Read(y1);
Write('x2 = ');Read(x2);
Write('y2 = ');Read(y2);
WriteLn('d = ',Sqrt(sqr(x2-x1)+sqr(y2-y1)));
End.