variant1

program variant1;
    var a: integer;
    var b: integer;
    var answer: integer;
begin
  writeln('Введите координату точки A: ');
  readln(a);
  writeln('Введите координату точки B: ');
  readln(b);
  if (a < b) then
    answer := b - a
  else
    if (a > b) then
      answer := a - b;
  writeln('Длина отрезка равна: ', answer);
end.