dim alphabet as string()={"A","B","C","D","E","F","G","H","I","J","K","L","M","N","O","P","Q","R","S","T","U","V","W","X","Y","Z"}
dim substitute as string()={"P","L","F","N","O","C","Q","U","D","Z","V","G","I","X","M","W","J","B","K","E","A","H","S","Y","R","T"}
dim messagestring as string
messagestring=console.readline()
dim lengthmessagestring as integer
lengthmessagestring=messagestring.length
call a(alphabet,substitute,messagestring,lengthmessagestring)
console.writeline()
console.readline()
End Sub
sub a(byref lengthmessagestring as integer,byref alphabet as string(),byref substitute as string(),byref messagestring as string)
dim i as integer=0
do while (i+1)<=lengthmessagestring
for j=0 to 25
if messagestring(i)=alphabet(j) then
alphabet(j)=substitute(j)
console.writeline(alphabet(j))
end if
next
i+=1
loop
end sub