MAIORPALAVRA ;Verifica qual é a maior palavra da frase
 Set Frase="O Cache da InterSystems é Imbativel"
 Write !,"Frase : ",Frase,! ; Escreve
 Set qp=$Length(Frase," ") ; Conta as palavras da frase
 Set (qtl,mqtl)=0 ; Zera os contadores
 For pal=1:1:qp {                                                 ; comando For
  Set palavra=$Piece(Frase," ",pal) ; percorre as palavras
  Set qtl=$L(palavra) ; Verifica tamanho da palavra
  If qtl>mqtl Set mqtl=qtl,pi=pal                             ; Define a maior palavra
 }
 Write !,"A maior palavra da frase é ",$Piece(Frase," ",pi),! ; Escreve a maior palavra
 ;
 ; Crie um programa COS com os comandos acima e execute no terminal