Algoritmo "estado on/off _ v2"

Algoritmo "estado on/off _ v2"

Var
   estado, i, p:inteiro

Inicio

funcao lampada(t:inteiro): inteiro
inicio
   se t=0 entao
      estado <-1
   senao
      estado <-0
   fimse
   retorne estado
fimfuncao

enquanto i = 0 faca
   escreval("Clicar no botão")
   leia(i)
   estado <- lampada(estado)
   se estado = 0 entao
      escreval("Desligado")
   senao
      escreval("Ligado")
   fimse
fimenquanto