Ответ:

var a,s,k,p:integer;

begin

 k:=0;

 p:=1;

 s:=0;

 begin

 while a<>100 do begin

   readln(a);

   if (a mod 2 = 0) then

     k:=k+1;

   if (a<0) then

     s:=s+a;

   if (a >=5) and (a <= 15) then

     p:=p*a;

 end;

 end;

 writeln(k, ' ', s, ' ',p);

end.