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.