Дан массив из n элементов.написать программу, подсчитывающую произведение элементов массива

Var a: array [1..10] of integer; i, n, p: integer; begin writeln('vvedite n'); readln(n); p: =1; writeln('vvedite massiv'); for i: =1 to n do begin readln(a[i]); p: =p*a[i]; end; writeln('proizvedenie elementov massiva = ',p); end.

А) в ответе будут все документы, в которых встречается слово чемпионы и слова бег и плавание встречаются в одном предложении. б) в ответе будут документы, в которых в одном предложении есть слова чемпионы и плавание. в) в ответе будут документы, в которых есть слова чемпионы, бег и плавание не зависимо от того, в одном они предложении или нет. г) здесь в одном предложении должны быть все слова: чемпионы, европа, бег, плавание. круги эйлера на рисунках. в порядке возрастания количества ответов: г, б, а, в.

Логические знаки не дает вставлять - пишу их союзами и частицами подчеркнутыми. 1)      число  376 четное и трехзначное.а = "число  376 четное" в = " число  376 трехзначное" а и в  2)  неверно, что солнце движется вокруг земли.а = "солнце движется вокруг земли" не а 3)  земля имеет форму шара.а = "земля имеет форму шара" а 4)  на уроке старшеклассники отвечали на вопросы учителя и писали самостоятельную работу.а = "на уроке старшеклассники отвечали на вопросы учителя" в = "на уроке старшеклассники писали самостоятельную работу" а и в 5)  если сумма цифр числа делится на 3, то число делится  на  3.а = "сумма цифр числа делится на 3" в = "число делится  на  3" а стрелка к  в 6)  число  делится на 3 тогда и только тогда, когда сумма цифр числа  делится на 3а = "число  делится на 3 " в = " сумма цифр числа  делится на 3" а стрелка в обе стороны в