Question

Помогите решить задачу!!! напишите программу,которая вводит координаты двух точек на числовой оси и выводит расстояние между ними.

Answer 1

var

   x1, x2 : integer;

begin

   write('введите координаты точек x1 и x2: ');

   readln(x1, x2);

   writeln('расстояние между точками равно: ', abs(x2-x1));

end.