War Map (Bac science Salma)

Program mois;
Uses Wincrt;
Var
  n,a: Integer;
Begin
  Writeln ('Saisir votre anneé');
  Readln (a);
  Repeat
    Write ('Saisir le numéro du mois: ');
    Readln (n);
  Until n In [1..12];
  If n In [1,3,5,7,8,10,12] Then
    Writeln ('Le mois ',n,' contient 31 jours');
  If n In [4,6,9,11] Then
    Writeln ('Le mois ',n,' contient 30 jours');
  If n=2 Then
    If a Mod 4 = 0 Then
      Writeln ('Le mois ',n,' contient 29 jours')
  Else Writeln ('Le mois ',n,' contient 28 jours');
End.