program zegar;
uses crt;
var p,l,i,j,k:word;

begin
clrscr;

{for l:=0 to 365 do
for k:=0 to 23 do
for j:=0 to 59 do}
for i:=0 to 10 do
begin if i>4 then begin if i mod 2 = 0 then sound(500) else nosound; end;

for p:=0 to 99 do
begin
gotoxy(30,20);
write(l:3,'d:',k:2,'h:',j:2,'m:',i:2,'s:',p:2);
if i>30 then sound(123);
delay(18);
clrscr;
end;
nosound;
end;

end.