Помогите с кодированием

Question

Помогите с кодированием

---

Answer 1

Var x1,y1,x2,y2,r:real;
begin
readln(x1,y1);
readln(x2,y2);
r:=sqrt(sqr(x2-x1)+sqr(y2-y1));
writeln(r:5:3);
end.

Пример:
1. 1.
2. 2.
1.414