Question

задача pascal 
Даны три точки А, В, С на числовой оси. Найти длины отрезков АС и ВС и их сумму.(нужно чтобы прошел тест на taskbook)

Answer 1

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.

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