Калькулятор. Рекурсия.

[kcah]

У исполнителя Калькулятор две команды, которым присвоены номера:
a. прибавь 3
b. умножь на 4
Сколько есть программ, которые число 3 преобразуют в число 57?
Через рекурсию на Паскале!

[Arigato]

На Делфи:

uses
  Classes;

const
  Fin = 57;

var
  SL: TStringList;

procedure ProgramCreate(Prog: string; Value: Integer);
begin
  if Value < Fin then begin
    ProgramCreate(Prog + 'a', Value + 3);
    ProgramCreate(Prog + 'b', Value * 4);
  end else begin
    if Value = Fin then
      SL.Add(Prog);
  end; {if}
end; {proc ProgramCreate}

begin
  SL := TStringList.Create;
  ProgramCreate('', 3);
  WriteLn(SL.Count);
  WriteLn(SL.Text);
  SL.Free;
end.

[kcah]

А пояснения к решению можешь написать? Особенно в основной программе.

[Arigato]

А ты не оборзел? Решение есть, разбирайся.

[kcah]

Сообщение от Arigato

А ты не оборзел? Решение есть, разбирайся.

Я знаю только Паскаль, и то плоховато) Ибо в Delphi вообще не разбираюсь. Как я могу тут разобраться? Я это пометил в посте.

[Arigato]

Алгоритм есть, тем более, что сама процедура готова, там от Делфи всего одна строчка, и если ты можешь разобраться, как работает эта процедура, то даже не понимая этой строки ты поймешь, на что ее заменить, чтобы получить решение для Турбо Паскаля.