Program P32;
 { Definiţii de constante }
const Nmax=40;         { Constantă de tip integer }
      Nmin=-Nmax;        { Constantă de tip integer }
      Pi=3.14;         { Constantă de tip real }
      Separator='\';   { Constantă de tip char }
      Indicator=TRUE;  { Constantă de tip boolean }
      Mesaj='Verificaýi imprimanta';  { Şir de caractere }
begin
 writeln(Nmax);
 writeln(Nmin);
 writeln(Pi);
 writeln(Separator);
 writeln(Indicator);
 writeln(Mesaj);

 { ... calcule în care se utilizează }
 { constantele în studiu ...         }

end.