Вычисдить значение переменных по заданным рассчетным формулам и набоом данных,составить блок-схема для любой из двух программ. номер 8 и 9

1) Сначала лисенок переправляет на тот берег двух своих собратьев (2 захода);
2) В условии сказано, что ни лисица, ни волк не доверят своих детей другой матери, но про детей ничего не сказано, значит лисенок может переправить на тот берег волчат. Он переправляет трех волчат на тот берег(3 захода);
3) Потом Лисица переправляет своего последнего ребенка на берег. Таким образом, на другой берег уже переправлены все волчата и лисята;
4) Потом Лисица плывет за Волчихой и уже вдвоем они переправляются на тот берег.
Всё!

Const 
  sixteen: string = '0123456789ABCDEF';

function TenIn16(x: integer): string;
var  s: string;
begin 
  repeat   
  s := sixteen[x mod 16 + 1] + s;   
  x := x div 16; 
  until x = 0; 
  if length(s) = 1 then    s := '0' + s; 
  TenIn16 := s;
end;

var 
  f1, f2: text; 
  a1, a2, a3: byte;

begin 
  assign(f1, 'record.txt'); 
  reset(f1); 
  assign(f2, 'result.txt'); 
  rewrite(f2); 
  while not eof(f1) do  
  begin   
    read(f1, a1, a2, a3);   
    writeln(f2, TenIn16(a1), TenIn16(a2), TenIn16(a3)); 
  end; 
  close(f1); 
  close(f2);
end.