Пять раз подряд ввести верный ответ по таблице умножения

const
    res : Array[Boolean] Of String[5] = ('Wrong', 'Right');
var
    x, y : 1..10;
    inArow : 0..5;
    count, right, ans : Word;
    Result : Boolean;
begin
    Randomize;
    count := 0; inArow := 0; right := 0;
    while (inArow <> 5) do
    begin
        x := Random(10) + 1;
        y := Random(10) + 1;
        Write(x, ' * ', y, '='); ReadLn(ans);
        Result := ans = x * y;
        WriteLn(res[Result]);
        if Result
        then
        begin
            Inc(inArow);
            Inc(right);
        end
        else
            inArow := 0;
        Inc(count);
    end;
    WriteLn('Finish after ', count, ' attempts.');
    WriteLn((100 * right / count):0:2, '%');
end.

var
    i : LongWord;
begin
    for i := 10 to 1000000 do
        if (Abs((i / 14) - (i div 10)) < 0.000001)
        then
            Write(i, ' ');
end.

var a,b,c,i:integer;
begin
  randomize;
  i:=0;
  repeat
    a:=random(10);
    b:=random(10);
    write(a,' * ',b,' = ');readln(c);
    if a*b=c then inc(i)
    else
      begin
        writeln('Не правильно ',a,' * ',b,' = ',a*b);
        i:=0
      end;
  until i=5;
end.