home *** CD-ROM | disk | FTP | other *** search
/ PC Underground / UNDERGROUND.ISO / password / little.pas < prev    next >
Pascal/Delphi Source File  |  1995-07-28  |  205b  |  14 lines
  1. program LITTLE_PROGRAM;
  2.  
  3. Uses Crt;
  4.  
  5. var i : integer;
  6.  
  7. begin
  8.   clrscr;
  9.   for i := 5 downto 1 do begin;
  10.     gotoxy(10,6);
  11.     writeln('Please wait ',i,' second(s)');
  12.     delay(1000);
  13.   end;
  14. end.