Петя и Вася изучали микроэлектронику. Спустя некоторое время они утомились и решили поиграть в слова. Их задача состояла в том, чтобы составить максимально возможное количество комбинаций из 6-ти букв, входящих в слово "Микроэлектроника" так, чтобы все буквы в комбинации были различны и все комбинации отличались друг от друга хотя бы одной буквой. Петя выиграл эту игру, записав все возможные комбинации. Сколько у него их получилось?

// напишите программу, которая в последовательности натуральных чисел определяет количество //чисел, кратных 3. программа получает на вход количество чисел в //последовательности, а затем сами числа. в последовательности всегда имеется число, //кратное 3. количество чисел не превышает 100. введённые числа не превышают 300. //программа должна вывести одно число - количество чисел, кратных 3. var  i,j,x  : word;         n          : integer; begin   writeln('введите количество цифр в последовательности');   readln (j);   if j> 100 then //проверка накличество чисел в последовательности           begin               writeln ('по условия цифр не должно быть более 100');               writeln ('введите количесво цифр еще раз');               readln (j);           end;   for i: =1 to j do   begin       writeln ('введите ',i,' число');       readln (n);       if n> 300 then //проверка максимального значения числа           begin               writeln ('данное число не удовлетворяет условиям (> 300');               writeln ('введите его еще раз');               readln (n);           end;           n: = n mod 3;           if n=0 then x: =x+1;           end;     writeln ('количество чисел, кратных 3: ');     writeln (x); end.