Buatlah program dalam bahasa GO sesuai intruksi berikut
5. Amerika Serikat unggul dalam pertempuran Midway melawan Jepang karena
kemampuannya membongkar pesan rahasia lawan. Dengan men-trace algoritma
berikut ini, andapun dapat membongkar rahasia yang tersimpan dalam teks berikut,
Menerima inputan dari fmt.Scan


program Purple
kamus
type Pesan = array[1..1024] character
rahasia, teks : Pesan
algoritma
bacaTeks(teks)
bongkarPesan(teks, rahasia)
tulisPesan(rahasia)
endprogram.

procedure bacaTeks(output t:Pesan)
kamus
i : integer
algoritma
i ← 1
input t[i]
while t[i] <> ‘#’ do
i <- i + 1
input t[i]
endwhile
endprocedure


procedure tulisPesan(input t:Pesan)
kamus
i : integer
algoritma
i ← 1
while t[i] <> ‘#’ do
output(t[i]
i ← i + 1
endwhile
endprocedure

procedure bongkarPesan(input t:Pesan, output s:Pesan)
kamus
i, j : integer
algoritma
j ← 0
i ← 1
while t[i] <> ‘#’ do
j ← j + 1
s[j] ← t[i]
while t[i] <> ‘ ‘ and t[i] <> ‘#’ do
i ← i + 1
endwhile
j ← j + 1
s[j] ← t[i-1]
while t[i] == ‘ ‘ do
i ← i + 1
endwhile
endwhile
j ← j + 1
t[j] ← ‘#’
endprocedure