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

VarX1,Y1,X2,Y2:real;BeginWrite('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.