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

Question

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

Answer 1

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.