PROGRAM Prova_SETora;
USES Crt, giobe;
BEGIN
  { ... omissis ....}

 {SETora (Ora,Minuti,Secondi,Centesimi);}
  SETora ( 23,  39  ,  12  ,     0    );

  { ... omissis ....}
END.