Создать тест по таблице умножения на 7. паскаль авс

Var   n,nt,d,p,r:integer; begin   n:=0; nt:=0;   Writeln('Поверьте свои знания таблицы умножения на 7');   Randomize;   repeat     Write('1- продолжать, 0 - закончить: ');     Read(d);     if d=1 then begin       p:=Random(10)+1;       Inc(n);       Write('7x',p,'='); Read(r);       if r=7*p then begin Writeln('Верно'); Inc(nt) end       else Writeln('Неверно, ответ ',7*p)       end     else       if n>0 then Writeln('Верных ответов ',nt,' из ',n)   until d<>1;   Writeln('Ждем Вас снова!') end.