program timer;

uses
   crt;

const
   number : longint = 1000000;


procedure display_timer;

begin
   while not keypressed do
   begin
      textcolor(black);
      gotoxy(37,12);
      write(' ':7);

      textcolor(6);
      gotoxy(37,12);
      write(number);

      delay(1);
      dec(number,1);
   end;
end;


begin
   textmode(80);
   textcolor(black);
   clrscr;

   display_timer;

   textcolor(lightgray);
   clrscr;
end.