Напишите программку вывода на экран произведение пяти чисел используя цикл 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(Творение 5 чисел одинаково: , z); // выводим строку с ответом на экран
end.