Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- var
- x1, y1, x2, y2, a, b, p, s: real;
- begin
- read(x1, y1);
- read(x2, y2);
- s := sqrt(sqr(x2 - x1)+ sqr(y2 - y1));
- write (s);
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement