{************************************************
                 Hugo Eti‚vant
     http://www.multimania.com/cyberzoide/
      e-mail : cyberzoide@multimania.com
      (pour une aide en Turbo Pascal 7.0)
*************************************************


TP 2, EXERCICE 2 }

program anneebissextile;
uses crt;

var annee:integer;
    bissextile:boolean;

BEGIN
clrscr;  {efface l'‚cran}
write('Entrez au clavier le num‚ro d''ann‚e (ex:1998) : ');
readln(annee);
if (annee mod 100 = 0) then {l'ann‚e est s‚culaire (divisible par 100)}
   begin
   if (annee mod 400 = 0) then {l'ann‚e s‚culaire bissextile si
                                divisible par 400}
      begin
      writeln('L''ann‚e s‚culaire ',annee,' est bissextile.');
      bissextile:=true;
      end;
   end
   else  {l'ann‚e n'est pas s‚culaire}
   begin
   if (annee mod 4 = 0) then {l'ann‚e est bissextile si divisible par 4}
      begin
      writeln('L''ann‚e ',annee,' est bissextile.');
      bissextile:=true;
      end;
   end;
if not bissextile then writeln('L''ann‚e ',annee,' n''est pas bissextile.');
readln;   {pause jusqu'… que <ENTREE> soit press‚e}
END.