Найти расстояние между двумя точками с заданными координатами (x1, y1), (x2, y2) на плоскости. Расстояние вычисляется (программа Паскаль)

Question

Найти расстояние между двумя точками с заданными координатами (x1, y1), (x2, y2) на плоскости. Расстояние вычисляется по формуле
((x2 − x1)2 + (y2 − y1)2)1/2.

Answer 1

var
x1, y1, x2, y2, d: real;

begin
writeln('Введите координаты x1 и y1:');
readln(x1, y1);
writeln('Введите координаты x2 и y2:');
readln(x2, y2);
writeln;
{ Расстояние между двумя точками на плоскости: }
d := sqrt(sqr(x2 - x1) + sqr(y2 - y1));
writeln('Расстояние = ', d:0:2);
readln
end.