Exercício 2 - "Desenhe a porta" difícil

Algoritmo "Desenhe a porta"

Var

linha, coluna: inteiro
simbolo: caractere

Inicio

para linha de 1 ate 10 faca
   para coluna de 1 ate 10 faca
       se ( (linha = 1) ou (linha = 10) ou (coluna = 1) ou (coluna = 10)) entao
           simbolo <- "#"
       senao
          se ( (linha = 5) e (coluna = 7) ) entao
             simbolo <- "-"
          senao
            se ( (linha = 5) e (coluna = 8) ) entao
                simbolo <- "0"
            senao
               simbolo <- " "
            fimse
          fimse
       fimse
       se (coluna = 10) entao
          escreval(simbolo)
       senao
          escreva(simbolo)
       fimse

   fimpara
fimpara


Fimalgoritmo