Паскаль, !
с использованием цикла while ( без ! )

дана последовательность целых чисел, признак окончания которой - 0. найти:
а) сумму положительных элементов последовательности
б) кол-во отрицательных элементов
в) произведение элементов последовательности, кратных к.

var a,b,c,e,k:integer;

begin

k:=9;//вставить любоое число

a:=-1;

while a<>0 do

begin

read(a);

if a>0 then b:=b+a;

if a<0 then c:=c+1;

if (a mod k = 0)and(a<>0) then

if e=0 then e:=a else e:=e*a;

end;

writeln('сумма положительных элементов = ',b);

writeln('кол-во отрицательных элементов = ',c);

writeln('произведение элементов, кратных ',k,' равнo ',e);

end.

если нужно , чтобы пользователь вводил К , то за место оператора к:=9; вставить read(k);