Ввести с клавиатуры n-любых чисел ,найти количество отрицательных чисел( паскаль )

1.var 2.a, product : real; 3.i, n : integer; 4.begin 5.product: = 1; 6.readln(n); 7.for i : = 1 to n do begin 8.readln(a); 9.if a < 0 then 10.: = product*a; 11.end; 12. writeln(product: 0: 2);

может быть крик?

решение должно иметь од 20 до 5000

Закончились лекции, и студенты пошли домой (конъюнкция). в природе бывает, что солнце при дожде светит или прячется в тучах (дизъюнкция). в этом году летом мы либо поедем к морю, либо будем жить на даче (строгая дизъюнкция). если будет хорошая погода, то мы пойдем гулять (импликация). неверно, что 2 * 2 = 5 (инверсия). завтра мы не пойдем гулять (инверсия). я куплю ноутбук тогда и только тогда, когда получу премию (эквиваленция).