Даны три точки A, B, C на числовой оси. Найти длины отрезков AC и BC и их сумму — Pascal(Паскаль)

program tchk3;
var X1, X2, X3: real;
begin
    write('Введите координаты трех точек на оси x: ');
    read(X1, X2, X3);
    writeln('AC = ', abs(X3-X1));
    writeln('BC = ', abs(X3-X2));
    writeln('AC + BC = ', abs(X3-X1)+ abs(X3-X2));
end.

Program Begin17;

Var
  A, B, C: Real;

Begin
  ReadLn(A, B, C);
  WriteLn('AC = ', Abs(C - A));
  WriteLn('BC = ', Abs(C - B));
  WriteLn('Summa = ', Abs(C - A) + Abs(C - B));

End.

program ch;
var
x1,x2,x3,sum,ac,bc:integer;
begin
writeln ('vvedite koordinatu A');
readln (x1);
writeln ('vvedite koordinatu B');
readln (x2);
writeln ('vvedite koordinatu C');
readln (x3);
ac:=x3-x1;
bc:=x3-x2;
sum:=ac+bc;
writeln ('dlina ac = ',ac);
writeln ('dlina bc = ',bc);
writeln ('ix summa = ',sum);
readln;
end.