KA11.

Найти расстояние между двумя точками на плоскости

Var

X1, Y1, X2, Y2:real;

Begin

Write ('X1 = ') ; Read (X1) ;

Write ('Y1 = ') ; Read (Y1) ;

Write ('X2 = ') ; Read (X2) ;

Write ('Y2 = ') ; Read (Y2) ;

Write ('Расстояние между точками (', X1,'; ', Y1,') и (', X2,'; ', Y2,') = ', sqrt (sqr (X2-X1) + sqr (Y2-Y1)))

End.