Помогите написать программу в паскале abc для решения таблицы умножения от 2 до 9

помогите написать программу в паскале abc для решения таблицы умножения от 2 до 9
программа должна выдавать пользователью пример (допустим 5*4) а пользователь должен написать ответ затем при правильном ответе ему программа показывает правильность ответа (либо 5 либо 2)

  • var a, b, c, d, i: integer;
    begin
    for i := 1 to 5 do begin
    a := Random(10);
    b := Random(10);
    c := a *b;
    writeln(a, ' * ', b, ' = ');
    readln(d);
    if c = d then
    writeln('Правильно')
    else
    writeln('Ошибка ', a, ' * ', b, ' = ', c);
    end;
    end.
  • Рекомендую напрячься самому. Задача не так сложна, чтобы сразу просить помощи..
  • var a,b,c: Integer;
    Begin
    writeln ('Первый множитель A: ');
    readln(A);
    writeln ('Второй множитель B: ');
    readln(B);

    C:=A*B;
    writeln('Произведение чисел равно ', C);
    End.