Уисполнителя калькулятор две команды: 1. умножь на 2 2. умножь на 3. первая из них умножает число на экране на 2, вторая-утраивает его. сколько различных чисел можно получить из числа 2 с программы, которая содержит не более 3 команд?

Исходное число: 2
Первая команда: 4 ; 6
Вторая команда: 8 ; 12 ; 12 ; 18
Третья команда: 16 ; 24 ; 24 ; 36 ; 24; 36 ; 36 ; 54
Не повторяющиеся числа: 4 ; 6 ; 8 ; 12 ; 16 ; 18 ; 24 ; 36 ; 54
Всего чисел: 9
ответ: 9

Program name;//Имя программы
uses crt;//Запуск программы в консольном режиме НЕОБЯЗАТЕЛЬНО
var 
   a : Integer; 
b : Integer; 
i : Integer; 
c : Integer;
BEGIN //Начало программы 
write('Введите 1 число: ');  readln(a);//Ввод значения первого числа 
c := b-a-1;  write('Введите 2 число: '); 
readln(b);//Ввод значения второго числа 
writeln(a, ' ' , b); //Вывод двух чисел
  writeln(a, ' ' ,a*a,' ' , a*a*a); // Вывод 1 числа, квадрата, куба 
for i := 1 to b-a-1 do  
begin   
a := a + 1;   
writeln(a, ' ',a*a, ' ', a*a*a); // Вывод всех чисел от a до b 
end;         
writeln(b, ' ' ,b*b,' ' , b*b*b);// Вывод 2 числа, квадрата, куба 
ReadKey;  
end. //Конец программы

3. Вибрати значок програми
1. Увімкнути живлення монітора та системного блока
6. Дочекатися завантаження вікна програми
4. Дочекатись, доки вказівник миші набере вигляду стрілки
5. Двічі клацнути кнопкою миші
10. Клацнути на кнопці ПУСК
9. Дочекатись, доки вікно програми закриється
11. Обрати кнопку ЗАВЕРШЕННЯ РОБОТИ
12. Дочекатись, поки індикатор на системному блоці не погасне
7. У вікні програми виконати вказівку ЗАКРИТИ
2. Дочекатись, доки відобразиться РОБОЧИЙ СТІЛ
8. Якщо не передбачено окремого завершення роботи програми, натиснути Закрити.