program pidev;
uses crt;
var
c: char;

begin
clrscr;
repeat
c:=readkey;
gotoxy(10, 10);
  case c of
   '1': write('Esimene':15);
   '2': write('Teine':15);
   '3': write('Kolmas':15);
   'q': begin
         write('programmi ots':15);
         gotoxy(10, 11);
         write('Kohtumiseni!');
        end;
   else
 sound(440);
 delay(50);
 nosound;
end;


until c='q';
end.