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