كامپيوتر

program org;
uses crt;
var
   i,j:integer;
   ch:char;
begin
   repeat
         ch:=readkey;
         write(' ',ch);
         case ch of
             'a':

                    sound(200);

             's':

                    sound(400);

             'd':

                    sound(600);

  
             'f':
       
                    sound(800);

          
             'g':
                    sound(1000);

             'h':
        
                    sound(1200);

             'j':
     
                    sound(1400);

        
             'k':
               
                    sound(1600);

           
             'l':
         
                    sound(1800);

         
             'z':
           
                    sound(2000);
   
               
         end;
   until ch=#13;
   nosound;
end.

فقط یه چیزی رو بگم که منظور از #13 همون کلید Enter خودمون هستش که با زدن اون برنامه بسته میشه