Pascal Вычисление расстояния между двумя точками на прямой

[#Azamat]

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

var 
  a,b: real; // координаты точек
  r: real;   // расстояние между точками на прямой
begin
  write('Введите координату точки a: ');
  readln(a);
  write('Введите координату точки b: ');
  readln(b);
  r := abs(a-b);
  writeln('Расстояние между точками = ',r);
end.

Автор: Неизвестен