Извини, а среди каких программ?
Var
n, i : longint;
begin
readln(n);
for i:= 2 to n do
if (i mod 2 <> 0) and (i mod 3 = 0) then
begin
write(i);
write(' ');
end;
end;
end.
Я думаю так:
И П С
П ИС
С И П
Возможные варианты очереди.
7. Европейские реки кроме Нила
8. Марки автомобилей кроме Руслана
9. Камни кроме торфа
10. Средний род кроме кофе