Дана последовательность чисел заканчивающихся 0. Найдите произведение этих чисел

program zz1;

const n = 13; / / задаем количество элементов в последовательности

R:array [1 ... n] of integer = (60, - 30, 10, - 60, 20, - 30, 20, 90, 40, - 80, 10, - 50, 60); / / задаем последовательность чисел

var i, k:integer; / / задаем переменные целого типа

begin

k:=1; / / задаем начальное значение для произведения

for i:=1 to n do / / организуем цикл, в котором переберем все элементы последовательности

k:=k*R[i]; / / умножаем число последовательности на произведение

write (' произведение чисел последовательности = ', k); / / выводим ответ

end.