Найти расстояние между двумя точками с заданными координатами x1 и x2 на числовой оси: |x2 - x1|

Program Begin16;
Var
x1,x2:Real;
Begin
Readln(x1,x2);
WriteLn('d = ',Abs(x2-x1));
End.

автор: Sklyarov Sergej a.k.a. S9