Pascal даны три точки а, в, с на числовой оси. найти длины отрезков ас и вс и их сумму.(нужно чтобы тест на taskbook)

Var A, B, C, AC, BC: integer;
begin
     readln(a, b, c);
     AC := abs(C - A);
     BC := abs(B - A);
     S := AC + BC;
     Writeln('AC = ', AC);
     Writeln('BC = ', BC);
     Writeln('S = ', AC+BC);
end.

Через модули если только)