Задачи по 1С. Решите хотя бы парочку, чтобы я хоть начал ориентироваться в коде. Заранее ))

На первое место можно поставить любую из шести допустимых букв (кроме ийо). На второе место можно поставить любую из шести оставшихся букв (ийо уже можно использовать), на третье – любую из шести оставшихся и т. д. Всего получается 6*6*5*5*3*2*1=5400 вариантов. Но в этих вариантах посчитаны слова, в которых ол стоят рядом, их количество нужно вычесть.
Количество слов с ол можно подсчитать по той же схеме, если считать ол единой буквой. У нас остаётся буквы: Н, Б, Е, ИЙ, причём слово не может начинаться с Й. Количество таких слов равно 6*5*5*3*2*1=900. Всего возможных кодов получается 5400-900=4500.
Ответ: 4500.

Const n=20;
var a:array [1..n] of integer;
k,i:integer;
begin
writeln('Исходный массив:');
for i:=1 to n do
 begin
 a[i]:=random(90)+10;
 write(a[i],'  ');
 end;
writeln;
k:=0;
for i:=1 to n do
 if a[i] mod 2 = 0 then k:=k+1;
writeln('В массиве ',k,' четных чисел');
writeln('Элементы с нечетными номерами:');
for i:=1 to n do
 if i mod 2 <> 0 then write(a[i],'  ');
end.

Пример:
Исходный массив:
55  40  42  16  52  12  46  58  75  72  39  51  54  64  83  20  77  37  52  23  
В массиве 12 четных чисел
Элементы с нечетными номерами:
55  42  52  46  75  39  54  83  77  52