расстояние между двумя точками равно сумме квадратов разности одноимённых координат
равно
корню из суммы квадратов разности одноимённых координат
Ну а на пскале это выглядит примерно так
Код:
Var x1,x2,y1,y2,d : real;
Begin
Read(x1);
Read(y1);
Read(x2);
Read(y2);
d := sqrt( sqr(x1-x2) + sqr(y2-y2));
Writeln('Расстояние от точки (',x1,',',y1,') до точки (',x2,',',y2,') равно ', d);
End.