Для одномерного массива x3, содержащего n элементов, найти произведение и количество элементов, превышающих заданное число с

Var    i, p, s,c : integer;   a : array [0..n] of integer; {n - заданное число } begin p: =1; s: =0;   readln(c);   for i: =0 to n do   {заменить n на кол-во элементов}   begin      if a[i] > c then    begin    p: = p * a[i];       s: = s + 1;     end;   end; writeln(p); {вывод произведения чисел больше заданного} writeln(s); {вывод колличества этих чисел} end.

var

a,b: real;

begin

readln(a,b);

if (a> 0) or (b< -2) then

writeln('истинно')

else

writeln('ложно');

end.