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

(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.

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