составьте программу вычисления расстояния между двумя точками с координатами x1 и x2 лежащим на числовой оси по формуле R|x1 -x2|

//Код PascalABC.NET 3.3 (1627)Function R1D(x1,x2: real): real;Begin  Result := Abs(x1-x2);End;Var  a,b: integer;Begin  Write('x1 = ');ReadLn(a);  Write('x2 = ');ReadLn(b);  WriteLn('Расстояние между x1 и x2: ',R1D(a,b));End.