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);
<span>end.
Через модули если только)</span>
Табулятор:1888
аналитическая машина:<span>1822
</span><span>арифмометр:1500
Перфокарты:</span><span>1808
Порядок такой: Арифмометр; Перфокарта; Аналитическая машина; Табулятор.
</span>
П1 <-> П0 5 , 2 3 ИП0 x^2 * 4 , 3 6 ИП0 * + 1 , 2 ИП1 3 <-> x^y * + 0 , 8 9 ИП1 * ИП0 ИП1 + sin 2 * ИП0 ИП1 * e^x * / + С/П
14 часов. +- 1 или 2 часа, чтоб заснуть. 12 часов точно будет спать.