Вычисление произведения двух чисел

var a,b,c:integer; {Сомножители и произведение}
    q,e:integer; {Счетчик вопросов и счетчик ошибок }
    s:string;
begin
        randomize;
        e:=0;
        for q:=1 to 15 do begin
                a:=1+random(10);
                b:=1+random(10);
                write(q,')_Сколько будет ', a,' x ',b,' ? ');
                readln(c);
                 if c=0 then break;
                 {Если ответ неверный,увеличиваем счетчик ошибок}
                if a*b<>c then e:=e+1;
           end;
           if c<>0 then begin
        case e of
                0:s:='Отлично!';
                1,2:s:='Хорошо';
                3..5:s:='Удовлетворительно';
                else s:='Очень плохо!';
        end;
        writeln(s); readln; end;
end.

procedure ocenka(e:integer);
begin
case e of
0:writeln('Отлично!');
1,2:writeln('Хорошо');
3..5:writeln('Удовлетворительно');
else writeln('Очень плохо!');
end;
end;
var a,b,c:integer; {Сомножители и произведение}
    q,e:integer; {Счетчик вопросов и счетчик ошибок }
begin
randomize;
e:=0;
for q:=1 to 15 do
 begin
  a:=1+random(10);
  b:=1+random(10);
  write(q,')_Сколько будет ', a,' x ',b,' ? ');
  readln(c);
  {Если ответ неверный,увеличиваем счетчик ошибок}
  if a*b<>c then e:=e+1;
  ocenka(e);
 end;
readln;
end.