[naxos]

type mois=(jan,fev,mar,avr,mai,jun,jul,aou,sep,oct,nov,dec);

var mois30:set of mois;
nomsdesmois:array[mois]of string[3];
unmois:mois;
begin
writeln('trente jours');
writeln;
nomsdesmois[jan]:='jan';
nomsdesmois[fev]:='Fev';
nomsdesmois[mar]:='Mar';
nomsdesmois[avr]:='Avr';
nomsdesmois[mai]:='Mai';
nomsdesmois[jun]:='jun';
nomsdesmois[jul]:='jul';
nomsdesmois[aou]:='aou';
nomsdesmois[sep]:='sep';
nomsdesmois[oct]:='oct';
nomsdesmois[nov]:='dec';

mois30:=[ avr , jun , sep , nov ];
for unmois:=jan to dec do
begin
write(Nomsdesmois[unmois]);
if unmois in mois30
then writeln(' a 30 jours')
else writeln(' n''a pas 30 jours');
end;
readln;
application.terminate
end;

end.

[Kaizen]

type mois=(jan,fev,mar,avr,mai,jui,jul,aou,sep,oct,nov,dec);

var mois30:set of mois;
nomdemois:array[mois] of string[3];
unmoi:mois;

begin
writeln('Trentejours');
writeln;
nomdemois[jan]:='Jan';
nomdemois[fev]:='Fev';
nomdemois[mar]:='Mar';
nomdemois[avr]:='Avr';
nomdemois[mai]:='Mai';
nomdemois[jui]:='Jui';
nomdemois[jul]:='Jul';
nomdemois[aou]:='Aou';
nomdemois[sep]:='Sep';
nomdemois[oct]:='Oct';
nomdemois[nov]:='Nov';
nomdemois[dec]:='Dec';

mois30:=[ Avr , Jui , Sep , Nov ];
for unmoi:= jan to dec do

begin
write(Nomdemois[unmoi]);
if unmoi in mois30
then writeln(' a 30 jours')
else writeln(' n''a pas 30 jours');
end;
readln;
application.terminate
end;

end.

[Kaizen]

Je paye a boire a celui qui trouve la difference (le 1er bug)

[Kaizen]

Le code de l'exo
(a utiliser pour info, pas de copier-coller bete et méchant SVP ® ® ®)