{* Задача 49 *}

Unit ZADACH49;
Interface
Implementation
Begin
 writeln('Проверка знания таблицы умножения. Программа должна вывести 10 примеров и выставить оценку: за 10 правильных ответов — "отлично", за 9 и 8 —"хорошо", за 7 и 6 — "удовлетворительно", за 6 и менее — "плохо".');
End.

Program pas12742;

Uses zadach49.pas; {* Эту строку можно удалить *}
Uses Crt; {* Вызов внешних функций *}
Var {* Необходимые переменные *}
  numbl                                                 : integer;
  пumЬ2                                                 : integer; { Первое и* второе число }
  res                                                   : integer;
  ( Результат умножения первого числа на второе }
  otv : integer; { Ответ испытуемого }
  kol                                                   : integer; { Количество правильных ответов }
  i                                                     : integer;
Begin
  ClrScr; { очистить экран }
  writeln(' * * * Проверка знания таблицы умножения * * * •);
  writeln(' После примера введите ответ и нажмите .');
  writeln; {* Пустая строка *}
  kol := 0;
  ( правильных ответов )  Randomize;
  ( инициализация генератора случайных чисел }
  For i := l To 10 Do { 10 примеров }
  Begin
    numbl := Random(9) + 1;
    numb2 := Random(9) + 1;
    res := numbl * numb2;
    write(' (, numbl, 'x', numb2, ' = ');
    readln(otv);
    If otv = res Then
      kol := kol + l
    Else Begin
      writeln(' Вы ошиблись! ', numbl, '*', numb2, '=', res);
  End;
  
End;
  writeln(' Правильных ответов:', kol);
  write(' Ваша оценка: ');
Case kol Of  10 : writelnС51);
  9, 8 : writeln('4');
7, 6 : writeln('3');
0..5 : writeln('2');
End;
writeln(' Для завершения работы с программой нажмите ');
readln; {* Ждем нажатия Enter *}
End....