{************************************************
                 Hugo Eti‚vant
     http://www.multimania.com/cyberzoide/
      e-mail : cyberzoide@multimania.com
      (pour une aide en Turbo Pascal 7.0)
*************************************************}


{ * DECLARATION DE L'UNITE UTILISEE : }

uses dos;  {unit‚ utilis‚e}


{ * DECLARATION DES CONSTANTES UTILISEES : }

const jours : array [0..6] of string[8] =
      ('dimanche','lundi','mardi','mercredi','jeudi','vendredi','samedi');
    {construction d'un tableau contenant les jours de la semaine}
      mois : array [0..11] of string[9] =
      ('d‚cembre','janvier','f‚vrier','mars','avril','mai','juin','juillet',
      'ao–t','septembre','octobre','novembre');
    {construction d'un tableau contenant les mois de l'ann‚e}


{ * DECLARATION DES VARIABLES UTILISEES : }

var a,m,j,jour,heure,min,sec,cent:word;
{d‚claration des variables en WORD (nombres entiers compris dans
l'ensemble [0..65535])
 a     : num‚ro de l'ann‚e [1980..2099]
 m     : num‚ro du mois [1..12]
 j     : num‚ro du jour dans le mois [1..31]
 jour  : nom du jour dans la semaine [0..6] le z‚ro correspond au samedi
 heure : num‚ro de l'heure [0..23]
 min   : num‚ro de la minute [0..59]
 sec   : num‚ro de la seconde [0..59]
 cent  : num‚ro du centiŠme de seconde [0..99]}


{ * DECLARATION DE LA FONCTION UTILISEE : }

function format(w:word):string; {fonction, renvoit en valeur intrinsŠque}
var s:string;                   {variable chaŚne locale}
begin                           {d‚but de la fonction}
str(w:0,s);                     {convertie une chaŚne STRING nombre en WORD}
if length(s)=1 then s:='0'+s;
{si la chaŚne possŠde un seul caractŠre, alors on lui rajoute un z‚ro devant}
format:=s;                      {la fonction FORMAT prend la valeur de S}
end;                            {fin de la fonction}


BEGIN                           {d‚but du programme principal}
getdate(a,m,j,jour);            {lecture de la date systŠme}
write('Nous sommes le ',jours[jour],' ',j,' ',mois[m],' ',a);
                                {affichage de la date correctement format‚e}
gettime(heure,min,sec,cent);    {lecture de l'heure systŠme}
writeln(' et il est ',format(heure),':',format(min),':',format(sec),'.',
format(cent));                  {affichage de l'heure correctement format‚e}
END.                            {fin du programme}