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

• 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.