var
x1, x2 : integer;
begin
write('введите координаты точек x1 и x2: ');
readln(x1, x2);
writeln('расстояние между точками равно: ', abs(x2-x1));
end.
var
x1, x2 : integer;
begin
write('введите координаты точек x1 и x2: ');
readln(x1, x2);
writeln('расстояние между точками равно: ', abs(x2-x1));
end.