program hang_vizsgalo;
uses crt;
var a:word;
begin
     a:=13000;
     writeln('Ha nem hallod a hangot, nyomj le egy billentyut!');
     repeat
       sound(a);
       delay(10);
       inc(a);
     until keypressed;
     nosound;
     Writeln('Az altalad hallott legmagasabb hang frekvenciaja: ', a);
     readkey;
     a:=40;
     writeln('Ha nem hallod a hangot, nyomj le egy billentyut!');
     repeat
       sound(a);
       delay(1000);
       dec(a);
     until (a=0) or keypressed;
     nosound;
     Writeln('Az altalad hallott legmelyebb hang frekvenciaja: ', a);
end.