[gokhanaygun]

uses crt;
var
a,b,c,i,e,f,d,g:integer;
begin
clrscr;
textcolor(red);
textbackground(yellow);
writeln('alarm satini gir');readln(e);
writeln('alrm ?alacak dakikay? gir');readln(f);
writeln('alar?m ?alacak saniyeyi gir');readln(g);
for a:=0 to 23 do
begin
for b:=0 to 59 do
begin
for c:=0 to 59 do
begin
for d:=0 to 60 do
begin
gotoxy(37,15);writeln(a,':',b,':',c,':',d);
delay(1900);
clrscr;
textbackground(c);
if (a=e)and (b=f)and(c=g) then
begin
repeat
for i:=400 to 700 do
begin
sound(i);
delay(3);
end;
nosound;
delay(1000);
until keypressed;
end;end;end; end;end;
readln;
end.