Склавиатуры вводится последовательность ненулевых целых чисел. 0 - конец последовательности. выяснить, является ли произведение отрицательных чисел отрицательным? и вторая с клавиатуры вводится последовательность из n целых чисел. подсчитать сумму чисел, больших заданного числа а. )

1.
var a,z:integer;
begin
z:=1;
readln(a);
while a<>0 do
 begin
 if a<0 then z:=-z;
 readln(a);
 end;
if z=-1 then writeln('Произведение отрицательных чисел отрицательно')
else writeln('Произведение отрицательных чисел положительно');
end.

Пример:
12
-45
-87
-20
0
Произведение отрицательных чисел отрицательно

2.
var n,a,x,s,i:integer;
begin
readln(n,a);
s:=0;
for i:=1 to n do
 begin
 readln(x);
 if x>a then s:=s+x
 end;
writeln('s = ',s);
end.

Пример:
5 30
48
15
80
29
32
s = 160