Ребята помогите! Пожалуйста
Составте программу нахождения растояния мужду двумя точками с координатами x1 и x2, лежащими на числовой оси. Значения x1 и x2 введте с клавиатуры.

var   x1,x2:integer;begin writeln('x1');  read(x1); writeln('x2');  read(x2);  if x1>x2 then  writeln(abs(x1-x2))  else  writeln(abs(x2-x1)); end.