Составить программу-тренажер Таблица умножения для младших школьников в игровой форме.

Program aaa;
var
   a,b,c,i,z:integer;
begin
   randomize;
   z:=0;
   for i:=1 to 10 do begin
        a:=random(9)+1;
        b:=random(9)+1;
        write(a,'*',b,'=');
        readln(c);
        if(c=a*b) then inc(z);
   end;
   writeln('Из 10 заданий вы выполнили ',z,' заданий!');
end.