Помогите ребят с Паскалем на кану оценка за четверть пж.
Нужно написать программу которая проверяет у тебя таблицу умножения, машина должна дать 10 примеров и показать результат. Причём чтоб они не повторялись. Мы должны вбивать в конце одно число. Это ответ в каждом примере

Ты спаситель(ницы).Спасибо

Vara,b,i,z:integer;BeginClrScr;Randomize;for i:=1 to 10 do begin a:=random(9)+1; b:=random(9)+1; write(a,'*',b,' = '); readln(z); if z=a*b then writeln('Верно!') else  writeln('Не верно! ',a,'*',b,' = ',a*b); end;readln;end.Пример (для 3 заданий):6*6 = 36Верно!8*3 = 26Не верно! 8*3 = 242*4 = 8Верно!