escreval ("----------------------------------")

  escreval ("        PAR PERFEITO              ")

  escreval ("----------------------------------")

  escreval ("Qual tipo de garota você procura? ")

  escreval ("Loira ou Morena? [L]/[M]")

  l <- verdadeiro

  leia(pri)

  escreval ("Inteligente ou Bonita? [I]/[B]")

  i <- verdadeiro

  leia(seg)

  escreval ("Carinhosa ou Safada? [C]/[S]")

  c <- verdadeiro

  leia(ter)

  andressa <- pri=="L" e seg=="I" e ter=="C"

  eduarda <- pri=="L" e seg=="B" e ter=="S"

  clarisse <- pri=="L" e seg=="I" e ter=="S"

  maria <- pri=="L" e seg=="B" e ter=="C"

  monica <- pri=="M" e seg=="B" e ter=="S"

  leticia <- pri=="M" e seg=="B" e ter=="C"

  ana <- pri=="M" e seg=="I" e ter=="C"

  joana <- pri=="M" e seg=="I" e ter=="S"

  se (andressa == verdadeiro), entao

     escreva ("Seu par perfeito é Andressa")

  fimse

  se (eduarda == verdadeiro), entao

     escreva ("Seu par perfeito é Eduarda")

  fimse

  se (clarisse == verdadeiro), entao

     escreva ("Seu par perfeito é Clarisse")

  fimse

  se (Maria == verdadeiro), entao

     escreva ("Seu par perfeito é Maria")

  fimse

  se (monica == verdadeiro), entao

     escreva ("Seu par perfeito é Mônica")

  fimse

  se (Leticia == verdadeiro), entao

     escreva ("Seu par perfeito é Letícia")

  fimse

  se (ana == verdadeiro), entao

     escreva ("Seu par perfeito é Ana")

  fimse

  se (joana == verdadeiro), entao

     escreva ("Seu par perfeito é Joana")

  fimse