Напишите программу вывода на экран произведение пяти чисел используя цикл for

var

arr : array [1 ... 5] of integer; / / объявление массива для хранения чисел, введенных с клавиатуры

i : integer; / / объявляем переменную

z : = 1;

begin

writeln ('Введите 5 чисел: '); / / выводим строку на экран

for i : = 1 to 5 do / / начало цикла

begin

readln (arr[i]); / / считываем на каждом шаге цикла число, введенное с клавиатуры

z:=z * arr[i]; / / вычисляем произведение пошагово

end;

writeln ('Произведение пяти чисел равно: ', z); / / выводим строку с ответом на экран

end.