Создать тест по таблице умножения на 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 ngt;0 then Writeln(Верных ответов ,nt, из ,n)
  until dlt;gt;1;
  Writeln(Ждем Вас снова!)
end.

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