uses crt;
var a,b,i,S,k,d : integer;
begin
clrscr;
Writeln ('Проверка умения складывать у вычитать числа.');
writeln ('После примера введите ответ и нажмите <Enter>  ');
Randomize;
for i:=1 to 10 do
begin
   A := random (100);
   B := random (A);
   d := random (2);
   if d = 0 then write (A,' - ',B,' =  ');
   if d = 1 then write (A,' + ',B,' =  ');
   readln (S);
   if d = 0 then begin
      if S <> a-b then writeln ('Вы ошиблись!   ',A,' - ',B,' = ', a-b);
      if S = a-b then k:= k + 1;
   end;
   if d = 1 then begin
      if S <> a + b then writeln('Вы ошиблись!   ',A,' + ',B,' = ',a+b);
      if S = a+b then k := k + 1;
   end;
end;
Case k of
   0..6: Writeln ('Правильных ответов - ',k,' - плохо!');
   6..7: Writeln ('Правильных ответов - ',k,' - удовлетворительно');
   8..9: Writeln ('Правильных ответов - ',k,' - хорошо');
   10:    Writeln ('Правильных ответов - ',k,' - отлично!');
   end;
readln;
end.