Придумайте слово из 5-6 букв и закодируйте его двумя с прямого и обратного условия Фано никак не могу понять как это сделать ❗❗❗❗❗

Могут:
– 31: для числа 111 сумма остатков равна 1+1+1=3, произведение цифр 1*1*1=1
– 813: для числа 339 произведение цифр 3*3*9=81, сумма остатков 1+1+1=3
– 7293: для числа 999 проивзедение цифр 9*9*9=729, сумма остатков 1+1+1=3

Остальные не могут. 
– 32: если сумма остатков 3, то все цифры нечетные, их произведение не может быть равно 2. Если сумма остатков 2, то одна из цифр четная, произведение не может быть равно 3.
– 43: Сумма остатков не превышает 3, значит, 3 – сумма остатков (поэтому все цифры нечетные), тогда произведение не будет четному числу 4.
– 52: сумма остатков 2, одна из цифр четная, но тогда произведение не будет равно нечетному числу 5
– 132: аналогично, сумма остатков 2, произведение должно быть четным (а оно 13)
– 190: аналогично, сумма остатков 0, тогда все цифры четные, но произведение 19

Pascal

program basket;

uses crt;

var

 fam, kom : array of string;

 rost : array of double;

 N,i:integer;

BEGIN

 Clrscr;

 writeln('Введите количество учеников');

 readln(N);

 setlength(fam, n);

 setlength(rost, n);

 writeln('Введите фамилию и рост ученика');

 for i:=1 to N do begin

   write('fam[',i,']= ');

   read(fam[i-1]);

   write('rost[',i,']= ');

   readln(rost[i-1]);

 end;

 for i:=1 to N do

   if rost[i-1]>=170 then begin

     setlength(kom, length(kom)+1);

     kom[length(kom)-1]:=fam[i-1];

   end;

 if length(kom)=0 then

   writeln('кандидатов нет')

 else

   writeln('Список претендентов в сборную школы');

 Writeln;

 for i:=1 to length(kom) do

   writeln(kom[i-1]);

 readln

end.