program tchk;
const pi = 3.14;
var X1, X2, Rast: real;
begin
write('Введите координаты двух точек на оси x: ');
read(X1, X2);
Rast := abs(X2 - X1);
writeln('Расстояние между двумя точками -- ', Rast:5:2);
end.
program tchk;
const pi = 3.14;
var X1, X2, Rast: real;
begin
write('Введите координаты двух точек на оси x: ');
read(X1, X2);
Rast := abs(X2 - X1);
writeln('Расстояние между двумя точками -- ', Rast:5:2);
end.