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