Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Program Cronometro ;
- var h,m,s:integer;
- Begin
- readln(h,m,s);
- while(h<>-1)do
- begin
- while(m<>-1)do
- begin
- while(s<>-1)do
- begin
- clrscr();
- writeln(h,':',m,':',s);
- delay(1000);
- s:=s-1;
- end;
- m:=m-1;
- s:=59;
- end;
- h:=h-1;
- m:=59;
- end;
- h:=0;
- writeln(h,':',m,':',s);
- End.
Advertisement
Add Comment
Please, Sign In to add comment