PROGRAM:BSXTL

0→A:0→B
EffÉcran

Disp " Février 28 ou 29 jours ?"
Disp " année bissextile ou non !"
Disp "--------------------------"
Input "  Quelle année ? ",A

If reste(A,4)=0 et reste(A,100)≠0 ou reste(A,400)=0
Then
Output(6,5,"année bissextile")
Else
Output(6,3,"année non bissextile")
End

Output(8,1,"--------------------------")
Output(10,3,"[entrer] pour sortir !")

Pause 
EffÉcran