Encontrar as proteínas sintetizadas a partir do dna digitado no visualg

Trabalho de Algoritmos! no visualg para achar as proteinas que são sintetizadas apartir da sequência do DNA que é digitado no programa function genetica=genetica(x)

resp=findstr("uuu",x); if length (resp)>0 disp("fenilanina") end

resp=findstr("uuc",x); if length (resp)>0 disp("fenilanina") end

resp=findstr("uua",x); resp1=findstr("uug",x); if (length (resp)>0) || (length (resp1)>0 ) disp("leucina") end

resp=findstr("ucu",x); resp1=findstr("ucc",x); resp2=findstr("uca",x); resp3=findstr("ucg",x); if (length (resp)>0) || (length (resp1)>0) || (length (resp2)>0) || (length (resp3)>0) disp("serina") end

resp=findstr("uau",x); resp1=findstr("uac",x); if (length (resp)>0) || (length (resp2)>0) disp("tirosina") end

resp=findstr("uaa",x); if length (resp)>0 disp("ocre") end

resp=findstr("uag",x); if length (resp)>0 disp("âmbar") end

resp=findstr("ugu",x); if length (resp)>0 disp("cisteina") end

resp=findstr("ugc",x); if length (resp)>0 disp("cisteina") end

resp=findstr("uga",x); if length (resp)>0 disp("opala") end

resp=findstr("ugg",x); if length (resp)>0 disp("triptofano") end resp=findstr("cuu",x); if length (resp)>0 disp("leucina") end

resp=findstr("cuc",x); if length (resp)>0 disp("leucina") end

resp=findstr("cua",x); if length (resp)>0 disp("leucina") end

resp=findstr("cug",x); if length (resp)>0 disp("leucina") end

resp=findstr("ccu",x); if length (resp)>0 disp("prolina") end

resp=findstr("ccc",x); if length (resp)>0 disp("prolina") end

resp=findstr("cca",x); if length (resp)>0 disp("prolina") end

resp=findstr("ccg",x); if length (resp)>0 disp("prolina") end

resp=findstr("cau",x); if length (resp)>0 disp("histidina") end

resp=findstr("cac",x); if length (resp)>0 disp("histidina") end

resp=findstr("caa",x); if length (resp)>0 disp("glutamina") end

resp=findstr("cag",x); if length (resp)>0 disp("glutamina") end