Напишите программу вывода на экран произведение пяти чисел используя цикл 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.