Решите пожалуйста в паскале задачи
1)Дана непустая последовательность целых чисел, оканчивающаяся нулем.
Найти:
а) сумму всех чисел последовательности, больших числа x;
б) количество всех четных чисел последовательности.

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

program n1;var a,k,sum,x:integer;beginwrite('Введите число 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;beginwriteln('Введите последовательность ненулевых целых чисел, которая оканчивается нулем:');read(a);while a<>0 dobegin   read(b);   if a*b<0 then k:=k+1;   a:=b;end;writeln(k,' раз(а) в введенной последовательности меняется знак');end.