Дана непустая последовательность целых чисел, оканчивающаяся нулем

(0 является признаком окончания последовательности и в последовательность не входит).

Найти и напечатать:

1. Сумму всех чисел, больших Х (значение Х вводится с клавиатуры).

Если таких чисел нет, то напечатать "Таких чисел нет"

2. Количество четных чисел

Var

a:array[1 ... 1000] of longint;

i, j, k, b, h, v:longint;

begin

i:=2;

readln (a[1]) ;

while (a[i-1]0) do begin readln (a[i]) ; inc (i) ; end;

readln (j) ;

for k:=1 to i-1 do

if a[k]>j then h:=h+a[k] else inc (b) ;

if b=i-1 then writeln ('Takix 4isel netu') ;

for k:=1 to i-1 do

if a[k] mod 2=0 then inc (v) ;

writeln (h, ', v) ;

end.

ну при компиляции могут быть ошибки, т. к. писал сразу здесь ... но суть задачи и её решение я вижу именно так