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

Question

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

---

Answer 1

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