Program Begin20;
Var
x1,y1,x2,y2:Real;
Begin
WriteLn('Введите координаты первой точки');
RealLn(x1,y1);
WriteLn('Введите координаты второй точки');
RealLn(x2,y2);
WriteLn('Pасстояние между точками:',sqrt(sqr(x2-x1) + sqr(y2-y1)));
ReadLn;
End.