Exemplo cronometro

Program Pzim ;
var tempo:integer;
Begin
// Solicita o tempo para o cronometro
write ('Digite o tempo que você deseja que o programa cronometre (s): ');
read (tempo);

// Repeticao até o tempo chegar em zero
while (tempo<>0) do
Begin
delay (1000);
clrscr;
writeln ('Cronometrando: ',tempo,' segundos');
tempo := tempo - 1;
End;

writeln ('');
Write (' Tempo esgotado !');
End.