//fungsi pecah 1/3 bagian

fungsi pecah(s:string)

{

 if panjang_string = 1 then return s //kondisi berhenti rekursi



 //pemecahan ke 3 bagian

 kiri <- copy(s, 1, panjang_string div 3)

 tengah <- ''

 for a <- 1 to panjang_string div 3 { tengah <- tengah + ' ' }

 kanan <- copy(s, 2*(panjang_string div 3)+1, panjang_string div 3)



 //pemecahan berantai

 kiri <- pecah(kiri)

 kanan <- pecah(kanan)



 //pengembalian nilai

 return kiri+tengah+kanan

}



input n

jml <- 3 ^ n //bisa pake fungsi Power kl di pascal



//rangkai kalimat awal

kalimat <- ''

for a <- 1 to jml 

{ 

 kalimat <- kalimat + '@'

}



//operasi rekursi

pecah(kalimat)

cetak kalimat