1º integrado Informática Getulio Vargas

 EX10) Faça um programa que utilize UM CRONOMETRO de fim de ano e deseje FELIZ ANO NOVO.

Program Cronometro;

var tempo:real;

Begin
writeln ('Digite o tempo que você deseja que o programa cronometre (s): '); {Solicita o tempo para o cronometro}
read (tempo);

while (tempo<>0) do {Repeticao até o tempo chegar em zero}
Begin
delay (1000); {observe que este comando dá o retardo de 1000 milisegundos que é igual a 1 segundo}
clrscr;
writeln ('Cronometrando: ',tempo :2:2,' segundos');
tempo := tempo - 1;
End;

clrscr;
writeln ('');
Write (' FELIZ ANO NOVO S2 !');
readkey;
End.