Составить программу вычисления произведения не нулевых элементов массива (а) вещественных чисел [1..5] .........решите пожалуйста

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.