Program Perda_de_Tempo;
Uses
  Crt;

Procedure Mensagem_de_Espera ( Msg: String ; Tempo_em_Segundos : Word) ;
Const
  Um_Segundo = 1000;  {1 seg = 1000 miliseg }
Begin
  Clrscr;
  GotoXY (30,12);  Write (Msg);
  Delay (Tempo_em_Segundos * Um_Segundo);
End;

Begin
  Mensagem_de_Espera ('Este programa...', 10);
  Mensagem_de_Espera ('Serve somente...', 10);
  Mensagem_de_Espera ('Para...', 10);
  Mensagem_de_Espera ('Vocˆ perder seu tempo !', 20);
  readln;
End.