Скласти програму, що перевіряє знання таблиці множення. в ній випадковим чином одержати два числа (від 0 до 9), після чого на екран виводиться питання у вигляді: „чому дорівнює добуток 4 на 9? ”. після вводу відповіді повинно видаватись повідомлення, чи відповідь вірна. питання виводити 12 раз та підраховувати кількість вірних та невірних відповідей. в кінці поставити оцінку.

var j, a, b, n: integer;

label 1;

begin

1: randomize;

  a: = random (9);

  b: = random (9);

  write (a, '*', b, '=');

  read (n);

  if n = (a * b) then writeln ('відповідь вірний! ')

            else writeln ('відповідь неправильний! ');

  writeln ('продовжуватимеш? ');

  writeln ('якщо так то натисни 1');

  writeln ('якщо немає то натисни 2');

  read (j);

  if j = 1 then goto 1;

  if j = 2 then writeln ('до побачення! ');

end.

начебто так, точно не пам'ятаю.