Решите пожалуйста в паскале задачи 1)Дана непустая последовательность целых чисел, оканчивающаяся нулем. Найти: а) сумму всех чисел последовательности, больших числа x; б) количество всех четных чисел последовательности. 2)Дана последовательность ненулевых целых чисел, оканчивающая нулем. Оп- ределить, сколько раз в этой последовательности меняется знак. (Например, в последовательности 10, –4, 12, 56, –4 знак меняется 3 раза.)

Program n1;
var a,k,sum,x:integer;

begin
write(Введите число X: );
readln(x);

sum:=0; k:=0;
writeln(Введите непустую последовательность целых чисел, которая оканчивается нулем:);
read(a);
while a 0 do 
begin 
 if a>x then sum:=sum+a; 
 if a mod 2 = 0 then k:=k+1; 
 read(a);
end;

writeln(Сумма всех чисел последовательности, больших числа X: ,sum);
writeln(Количество всех четных чисел последовательности: ,k);
end.


program n2;
var a,b,k:integer;

begin
writeln(Введите последовательность ненулевых целых чисел, которая оканчивается нулем:);
read(a);
while a0 do
begin 
 read(b); 
 if a*b a:=b;
end;

writeln(k, раз(а) в введенной последовательности меняется знак);
end.