Algoritmo "estado on/off _ v1"

Algoritmo "estado on/off _ v1"

Var
   estado:inteiro

Inicio

funcao lampada(t:inteiro): inteiro
inicio
   se t=0 entao
      estado <-1
   senao
      estado <-0
   fimse
   retorne estado
fimfuncao
escreval("Clicar no botão")

leia()
estado <- lampada(estado)
se estado = 0 entao
   escreva("Desligado")
senao
   escreva("Ligado")
fimse
Fimalgoritmo