Сколько различных сообщений можно закодировать с 5 знаков алфавита, состоящего из 15 символов?

сначало 2 брата садятся в лодку и переплывают на другой берег, один брат остаётся на берегу, другой возращается к отцу и матери. потом в лодку садится отец, переплывает и отдаёт её сыну, тот переплывает к матери и брату. два брата садятся в лодку и переплывают реку, один брат остаётся с отцом, а другой плывёт к матери. переплыв реку он даёт лодку матери. она переплывает реку и даёт лодку сыну, тот плывёт за братом и они в двоём переплывают реку на лодке.

var

a: array[1..100] of integer;

i,s,r: integer;  

begin

for i: =1 to 100 do read(a[i]);

for i: =1 to 100 do

begin

if a[i]< 0 then r: =r+a[i] else s: =s+a[i];

end;

writeln('сумма всех положительных чисел= ',s);

writeln('сумма всех отрицательных чисел= ',r);

readln

end.

посчитает максимум 100 чисел.