Создать тест по таблице умножения на 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.

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