Exemples de déclarations de constantes, types et variables

const

  JOUR_MAX = 31 ;

  AN_MIN = 1901 ;

  AN_MAX = 2000 ;

type

  Siecle = AN_MIN . . AN_MAX ;

  Semaine = (lundi, mardi, mercredi, jeudi, vendredi, samedi, dimanche) ;

  Annee = (janvier, février, mars, avril, mai, juin, juillet, aout, septembre, octobre, novembre, decembre);

var

  mois: annee ;

  jour: semaine ;

  nbJours : 1 .. JOUR_MAX ;

  an: siecle ;

  ouvrable : lundi .. vendredi ;

  i, j : integer ;

  numEtudiant : 1 .. maxint ;