Линейный ,Разветляющейся ,Циклический .
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>
Все, кроме первого, в принципе допустимы адресацией в сетях.
Так не пойдёт?если поставить впереди но,потом нарисовать утку,две последние буквы убрать,потом нарисовать букет цветов и тоже две буквы убрать,и в конце у
Получится 3e3f5660 ,а вообще перемножаем и записываем если больше шестнадцати в следующий разряд