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

Вопрос №1
У Лены 3 каштана,а у Леси-на 7 больше.Сколько листов у Леси?
А)42
Б)22
В)21
№2
Решите уравнение:
7*9=
х=
А)64
Б)56
В)67
№3
Решите пример:
48+(7*6)=
А)50
Б)90
В)80
*-умножить