Дана последовательность чисел оканч. на 0; Определить сумму четных и кол-во нечетных и если есть хотя бы одно отрицательное число вывести 'Да'.

Program n1;

var a, sumc, kn: integer;

ot: byte;

begin

readln (a) ;

kn:=0;

sumc:=0;

ot:=0;

while a0 do

begin

if a<0 then ot:=1;

if a mod 2=0 then sumc:=sumc+a else

kn:=kn+1;

readln (a) ;

end;

writeln ('сумма четных: ', sumc) ;

writeln ('кол-во нечетных: ', kn) ;

if ot=1 then write ('да') ;

end.