L=[float(i) for i in input().split()]
m=1
for i in l: m*=i
print("верно" if m<1000 else "неверно")
<h3>PascalABC.NET 3.4.2, сборка 1881 от 19.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var (m, n) := ReadInteger2('Количество строк и столбцов в массиве:');
var a := MatrGen(m, n, (i, j)-> j.IsOdd ? 1 : 0);
a.Println(2)
end.
1. Сегодня в театре не идет опера Евгений Онегин.
2. Не каждый охотник желает знать, где сидит фазан.
3. Число 1 - не простое число.
4. Натуральные числа, не оканчивающиеся цифрой 0, не являются простыми числами.
5. Верно, что число 3 является делителем числа 198.
6. Коля решил не все задания контрольной работы.
7. Не во всякой школе некоторые ученики интересуются спортом.
8. Некоторые млекопитающие не живут на суше.
Очень извиняюсь, если что-то не так))
Таблица истинности дана во вложении
Program n1;
const n=13;
var a: array[1..n] of real;
i: integer;
p: real;
begin
p:=1;
for i:=1 to n do
begin
readln(a[i]);
p:=p*a[i];
end;
writeln('массив:');
for i:=1 to n do write(a[i],' ');
writeln;
writeln('произведение: ',p);
end.