Все 5-ти буквенные слова составленные из букв в; и; н; т; записанны в алфавитном порядке и пронумерованны, вот начало списка: 1. 2. 3. 4. 5. запишате слово,которое состоит под номером 1020 !

1020.  ТТТНТ

вот прога выводящая все слова до 1020

const
  n = 4;
var
  a:array[1..n] of char;
  i,j,k,l,z, count:integer;
begin
  a[1] := 'В';
  a[2] := 'И';
  a[3] := 'Н';
  a[4] := 'Т';
  count := 1;
 
  for i :=1 to n do
    for j := 1 to n do
      for k := 1 to n do
        for l := 1 to n do
          for z := 1 to n do
          begin
            writeln(count, '.  ', a[i], a[j], a[k], a[l], a[z]);
            if (count =1020) then
              Exit;
            inc(count);
          end;
end.