Усовершенствуйте программу TablMul (пример 2 данного параграфа) таким образом, чтобы в результате выводилось сообщение о количестве правильных и неправильных ответов

Var x,y,i,z,p,n:integer;BeginRandomize;p:=0;n:=0;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       Begin       WriteLn('Правильно!');       p:=p+1       End    else       Begin       WriteLn('Не правильно! ',x,'*',y,'=',x*y);       n:=n+1       End    End;WriteLn('Количество правильных ответов: ',p);WriteLn('Количество неправильных ответов: ',n);End.