Дана последовательность чисел заканчивающихся 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.