Salut

Enoncé :
ecrire l'algo et sa traduction en pascal d'un prog permettant d'afficher le nom du mois correspondant à l'entier saisie par l'utilisateur et le nombre de jours correspondant

Code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
Program mois;
uses wincrt;
Var
n:integer;
begin
writeln('donner la valeur de n');
readln(n);
if (n=1) then
             begin
             writeln('janvier') ;
             writeln('31 jours');
             end;
esle if (n=2) then begin
                  writeln('février');
                  writeln('28 jours');
                  end;
     else if (n=3) then
                       begin
                       writeln('mars');
                       writeln('31 jours');
                       end;
          else if (n=4) then
                        begin
                        writeln('avril');
                        writeln('30 jours');
                        end;
               else if (n=5) then
                             begin
                             writeln('mai');
                             writeln('31 jours');
                             end;
                     else if (n=6) then
                                   begin
                                   writeln('juin');
                                   writeln('30 jours');
                                   end;
                          else if (n=7) then
                                        begin
                                        writeln('juillet');
                                        writeln('31 jours');
                                        end;
                               else if (n=8) then
                                             begin
                                             writeln('aout');
                                             writeln('30 jours');
                                             end;
                                    else if (n=9) then
                                                  begin
                                                  writeln('septembre');
                                                  writeln('31 jours');
                                         else if (n=10) then
                                                        writeln('octobre');
                                                        writeln('30 jours');
                                                        end;
                                              else if (n=11) then
                                                             begin
                                                             writeln('novembre');
                                                             writeln('31 jours');
                                                             end;
                                                   else
                                                       begin
                                                       writeln('décembre');
                                                        writeln('30 jours');
                                                        end;
end.
Erreur :
En if (n=) then begin, identificateur inconnu.
Comment corriger et y a t'il une methode plus simplifiée avec SC à forme généralisée ??

Merci