Составить программу вычисления произведения не нулевых элементов…

var a: array [1… 5] of real; //Массив из пяти вещественных элементов i: integer; //Переменная для цикла s: real; //Значение произведения begin s: =1; for i: =1 to 5 do //Вводим элементы массива begin writeln ('Введите ', i, ' элемент массива'); readln (a[i]); if a[i] <> 0 then s: =s*a[i]; {Если элемент массива не равен 0, то умножаем значение произведения на элемент массива} end; writeln ('Произведение не нулевых элементов массива: ', s); {Выводим значение произведения}end.