program Distance;
var
X1, Y1, X2, Y2: Integer;
DistanceAB: Real;
begin
write('Введите координаты X1 и Y1: ');
readln(X1, Y1);
write('Введите координаты X2 и Y2: ');
readln(X2, Y2);
DistanceAB := sqrt(sqr(X2 - X1) + sqr(Y2 - Y1));
writeln('Расстояние между точками A(', X1, ',', Y1, ') и B(', X2, ',', Y2, ') равно ', DistanceAB:0:2);
end.

Протестируем программу, введя координаты точек A(1, 2) и B(4, 6):

Введите координаты X1 и Y1: 1 2
Введите координаты X2 и Y2: 4 6
Расстояние между точками A(1,2) и B(4,6) равно 5.00

Программа корректно вычисляет расстояние между двумя точками.