Задание

Определить расстояние на плоскости между двумя точками с заданными координатами.

var x1 ,x2 ,y1 ,y2 ,sx ,sy: integer; c: real;

begin

write ('введите двух точек координаты: ');

readln(x1, x2, y1, y2);

sx:=x2-x1;

sy:=y2-y1;

c:=sqrt(sqr(sx)+sqr(sy));

write('Расстояние между точками равно ', c:4:1)

end.