Написать алгоритмы нахождения суммы, произведения всех элементов массива и поиска максимального элемента массива

1.
алг сумма
нач цел sum=0,i, цел таб a[1:5]
вывод "Введите 5 элементов массива:"
нц для i от 1 до 5
ввод a[i]
кц
нц для i от 1 до 5
sum:=sum+a[i]
кц
вывод sum
кон
2.
алг произведение
нач цел mult=1,i, цел таб a[1:5] 
вывод "Введите 5 элементов массива:" 
нц для i от 1 до 5 
ввод a[i] 
кц 
нц для i от 1 до 5 
mult:=mult*a[i] 
кц 
вывод mult
кон
3.
алг максимум
нач цел макс,i, цел таб a[1:5]
вывод "Введите 5 элементов массива:"
нц для i от 1 до 5
ввод a[i]
кц
макс:=a[1]
нц для i от 2 до 5
если a[i]>макс то
макс:=a[i]
все
кц
вывод макс
кон