EXERCICIO 10

Esta é uma pré-visualização de arquivo. Entre para ver o arquivo original

algoritmo "exercicio 10"
var
 ano : inteiro
inicio
 escreva("Ano: ")
 leia(ano)
 se (ano mod 400 = 0) ou ((ano mod 4 = 0) e (ano mod 100 <> 0)) entao
 escreval(ano, " é bisexto!" )
 fimse
fimalgoritmo