Olimpiade Sains Provinsi (OSP) 2011 - Komputer, Nomor 23–24

Perhatikan program berikut:

{
ubah adalah fungsi yang menerima masukan integer i dengan rumus:
ubah(1) = ‘A’; ubah(2) = ‘B’; ubah(3) = ‘C’, dst.
}
var
kalimat : array[1..10000] of string;
hitung : integer;
procedure berulang(idx,n: integer; kata:string);
var
i:integer;
begin
  if (idx = n) then
  begin
    hitung := hitung+1;
    kalimat[hitung] := kata;
  end
  else
  begin
    for i:=1 to 5 do
      berulang(idx+1,n, kata+ubah(i));
  end;
end;