{* Нота *}

Unit NOT;
Interface
Implementation
Begin
 writeln('Программа проверяет слух пользователя. На динамике звучит определённая нота, а пользователь должен её угадать.');
End.

Program testmusic;

Uses not.pas; {* Эту строку можно удалить *}
Uses crt; {* Вызов внешних функций *}
Var {* В работе нам потребуются переменные: *}
  g   : integer;
  gi  : integer;
  sum : integer;
  k   : integer;
  n   : char;
  sod : char;
  hom : char;
Procedure music(as : integer);
Begin
  sound(as);
  delay(50000);
  delay(50000);
  delay(50000);
  nosound;
End;
Begin
  sum := 0;
  writeln('This
  Program play sound, And you must chouse what it is the sound');
  
Uses not.pas; {* Эту строку можно удалить *}
  writeln('You may chouse from 7 sounds. They are:');
  writeln('C');
  writeln('D');
  writeln('E');
  writeln('F');
  writeln('G');
  writeln('A');
  writeln('B');
  writeln('
  If you want To continue print "y"');
    read(n);
  k := 0;
  While n = 'y' Do
  Begin
    sum := sum + 1;
    clrscr; {* Очищаем экран *}
    randomize;
    g := random(7);
    Case g Of       1:
    Begin
      gi := 131;
      hom := 'C';
    End;
    2:
    Begin
      gi := 147;
      hom := 'D';
    End;
    3:
    Begin
      gi := 165;
      hom := 'E';
    End;
    4:
    Begin
      gi := 175;
      hom := 'F';
    End;
    5:
    Begin
      gi := 196;
      hom := 'G';
    End;
    6:
    Begin
      gi := 220;
      hom := 'A';
    End;
    7:
    Begin
      gi := 247;
      hom := 'B';
    End;
    
  End;
  sound(gi);
  delay(50000);
  delay(50000);
  delay(50000);
  nosound;
  write('It is the sound:');
  readln(sod);
  If sod = hom Then
  Begin
    k := k + 1;
    writeln('It is right!!!');
  End;
  If sodhom Then
  Begin
    writeln('It is wrong');
    writeln('It is ', hom);
  End;
  writeln(' Do
  you want To continue');
  readln(n);
End;
writeln('You have ', k, ' right answers from ', sum);
readln; {* Ждем нажатия Enter *}
End.....