Вычислить расстояние между двумя точками с координатами х1,у1 их2,у2.паскаль

Question

Вычислить расстояние между двумя точками с координатами х1,у1 их2,у2.паскаль

Answer 1

Var x1,y1,x2,y2,r:real;
begin
write('Введите x1,y1');read(x1,y1);
write('Введите x2,y2');read(x2,y2);
r:= sqrt(sqr(x2-x1) + sqr(y2-y1));
write('расстояние между двумя точками = ',r);
end.