Дан массив С15. Найти произведение ненулевых элементов. Язык Паскаль

Предыдущий
вопрос Следующий
вопрос

var c : array[1..15] of integer;

i,k : integer;

begin

  for i:=1 to 15 do

 begin

  write('c[',i,']='); readln(c[i]);

 end;

 k:=1;

 for i:=1 to 15 do

 begin

  if c[i]<>0 then k:=k*c[i];

 end;

 writeln('Result = ',k);

 readln;

end.