affichage du trimestre correspondant à un mois donné

ÉNONCÉ
on se propose d'écrire un programme qui saisi un mois puis affiche le trimestre auquel il appartient:
ANALYSE
Résultat=Ecrire (NT)
NT=[ ]
Selon NM Faire
1,2,3 :NT <- ‘trimestre 1’
4,5,6 :NT <- ‘trimestre 2’
7,8,9 : NT <- ‘trimestre 3’
10,11,12 : NT <- ‘trimestre 3’
SINON
NT <- ‘erreur du mos’
Fin Selon

NM=donnée
Fin Trimestre
algorithme:
0- Début Trimestre
1- Lire (NM)
2- Selon selecteur Faire
1,2,3 : NT <-- "trimestre 1"
4,5,6 : NT <-- "trimestre 2"
7,8,9 :NT <-- "trimestre 3"
10,11,12 : NT <--"trimestre 4"
SINON
NT <-- "erreur du mois"
Fin Selon

3-Ecrire (NT)
4- Fin Trimestre
en pascal
Program Trimestre ;
Uses wincrt ;
Var NM :integer ;
NT :string ;
Begin
Writeln ('donner le numéro du mois :');
Read (NM);
Case NM OF
1,2,3:NT:='trimestre1';
4,5,6: NT := 'trimestre 2';
7,8,9 :NT := 'trimestre 3';
10,11,12 : NT :='trimestre 4'
Else NT :='erreur du mois' ;
End ;
Write ('Le numéro du trimestre correspondant au mois ',NM, ' est :', NT) ;
End.

essayez de réécrire ce programme en utilisiant la forme généralisée de la structure conditionnelle