Когда и кем создана линейка для навигационных расчетов

var x,y: real;

begin

  readln(x);

  if x> 8 then y: =x/4 else y: =x*5;

  writeln(y);

end.

капитан: 1голова   1 нога 

матросы

и кок     : 8 голов 16 ног

коты     : 6голов   24 лапы

              15 голов  41 ног и лап 

15-1=14 голов

41-1=40 ног

считаем методом подбора