hello

e l

l l

l e

olleh

12345

2 4

3 3

4 2

54321

input kalimat 



//cetak "hello" baris pertama

for a <- 1 to Length(kalimat), a++

{

 cetak kalimat[a]

 cetak ganti_baris

}



//cetak baris kedua s/d sebelum baris terakhir

for a <- 2 to Length(kalimat)

{

 cetak kalimat[a]

 for b <- 1 to Length(kalimat)-2 { cetak spasi }

 cetak kalimat[ Length(kalimat)+1-a ] 

 cetak ganti_baris

}



//cetak "olleh" baris terakhir

for a <- Length(kalimat) downto 1, a--

{

 cetak kalimat[a]

}