Составить программу-тренажер «Таблица умножения» для младших школьников в игровой форме. Обеспечить накопление данных о работе пользователя и вывод на экран результирующего сообщения.Паскаль.

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.