Сделать кроссворд главное слово неопределенность тема информация

Var       i, count, number: integer; begin       count : = 0;       i : = 0;       writeln('введите последовательность чисел');       repeat               readln(number);               if (number > = 100) and (number < = 999) and (number mod 4 = 0) then                       count : = count + 1;               i : = i + 1       until (number = 0) or (i > = 1000);             writeln('кол-во 3значных чисел кратных 4 =', count); end.

Примем каждую команду за x, всего 6 команд, значит последовательность команд будет выглядеть как  так как у нас первая команда - сложение, а вторая - умножение, то порядок команд критичен, и с изменением порядка мы будем получать новое число. проще говоря, программы *3 +2 +2 +2 +2 +2 и +2 *3 +2 +2 +2 +2 дадут разные результаты. то есть количество чисел равно количеству возможных программ. мы приняли каждую команду за x xxxxxx каждый x может принимать 2 варианта (+2 и *3) общее количество программ равно 2^6 = 64. получается, что из числа 13 мы можем получить 64 разных числа.