Perhatikan potongan program di bawah ini!

base := ‘QWERTYUIOPLKJHGFDSAZXCVBNM’;
kata := ‘’;
readln(kalimat);
for i:= length(kalimat) downto 1 do
begin
if pos(kalimat[i], base) > 0 then
kata:= kata & kalimat[i];
end;
writeln(kata);

Fungsi pos (CC:char, str:string) adalah fungsi yang akan menghasilkan posisi CC di suatu string str, jika suatu CC tidak terdapat di string, fungsi pos akan menghasilkan 0. Operator & adalah sebuah operator untuk menambahkan sebuah karakter di akhir sebuah string. Jika program di atas diberi masukan ‘s4yA-BuK4N+oRanG aLaY!?’, maka keluarannya adalah