Помогите составить программу в Паскале

[fleelol]

Помогите составить программу в Паскале

. У исполнителя Утроителъ две команды, которым присвоены номера:
1) вычти 1
2) УМНОЖЬ на 3
Первая из них уменьшает число на экране на 1, вторая увеличивает его в три раза.
Запишите порядок команд в программе получения из числа 3 числа 22, содержащей не более 5 команд.

 

[Vladimir_S]

. У исполнителя Утроителъ две команды, которым присвоены номера:
1) вычти 1
2) УМНОЖЬ на 3
Первая из них уменьшает число на экране на 1, вторая увеличивает его в три раза.
Запишите порядок команд в программе получения из числа 3 числа 22, содержащей не более 5 команд.

Так, что ли?

Var
 a,b:Byte;
Begin
 a:=3;
 b:=a*3;
 Writeln(a:2,' * 3 = ',b:2);
 a:=b;
 b:=a-1;
 Writeln(a:2,' - 1 = ',b:2);
 a:=b;
 b:=a*3;
 Writeln(a:2,' * 3 = ',b:2);
 a:=b;
 b:=a-1;
 Writeln(a:2,' - 1 = ',b:2);
 a:=b;
 b:=a-1;
 Writeln(a:2,' - 1 = ',b:2);
 Readln
End.

 

[fleelol]

спасибо!!!