Deskripsi untuk soal nomor 47 - 48

Perhatikan potongan program berikut ini:

var
  i,j : longint;
  s : string;
  ar : array [1..15] of char = ('p','r','a','o','s','p','j','a','k','a','r','t','a','I','T');

begin
  i := 0;
  repeat
    inc(i);
    for j := 1 to i do
      s := s + ar[j];
  until (i > 7);
  writeln(s);
end.