Сколько 4-х буквенных слов можно составить из трех букв а, б и с, если буквы могут повторяться ?

Т.е. на месте первой буквы может стоять три буквы, на месте второй - три, на месте третей - три, на месте четвертой - три. а значит  если нужно древо/дерево вариантов, то на первой строке три варианта (а, б и с), от каждого из вариантов отходят по три стрелочки (а, б и с), от каждой буквы из второго ряда отходит еще по-три, от каждой буквы и 3-го тоже по-три. ответ: 81

var prost: array [1..100] of integer;   i, max, n, j: integer;   is_prost: bool; begin  max : = 99;   prost[1] : = 2;   n : = 1;   for i : = 2 to max do begin      is_prost : = true;       for j : = 1 to n do begin          is_prost : = is_prost and not (i mod prost[j] = 0);       end;       if is_prost then begin          n : = n + 1;           prost[n] : = i;       end;   end;   for i : = 1 to n do      if prost[i] > 9 then write(prost[i], ' '); end.

const  n = 99; var  p: array[2..n] of boolean;   i, pr: integer;   flag: boolean; begin  for i : = 2 to n do      p[i] : = true;   pr : = 2;   flag : = true;   while flag do  begin      i : = 2 * pr;       while i < = n do      begin          p[i] : = false;           i : = i + pr;       end;       flag : = false;       for i : = pr + 1 to n do          if p[i] then          begin              pr : = i;               flag : = true;               break;           end;   end;     for i : = 10 to n do      if p[i] then          write(i, ' ');   readln; end.моя быстрее работает : р