!!!даю 35 баллов!!!
Последовательность оканчивается 0, определить сумму четных чисел, кол-во нечетных. Если есть хотя бы одно отрицательное-на экран вывести слово "отрицательное".

var    s, n, a : integer;begin    a := 1;    s := 0;    n := 0;    repeat        readln(a);        if a <> 0 then begin            if a mod 2 = 0    then s += a                            else n += 1;            if a < 0 then                writeln('Отрицательное');        end    until a = 0;        writeln('Сумма четных = ', s);    writeln('Количество нечетных = ', n)end.