Составить программу проверки знаний учеником таблицы умножения

Program test;
Var x,y,i,z: integer;
Begin
      for i:=1 to 10 do
    begin
           x:= random(8) +2;
           y:= random(8) +2;
           writeln (‘Сколько будет’,x,’*’,y,’?’);
           read (z);
           if z=x*y
           then writeln (‘Правильно!’)
           else writeln (‘Неправильно! ‘, x,’*’ ,y ,’=‘,x*y);
   end;
end