Дан массив состоящий из 6-ти элементов : а)найти максимальный элемент массива б)найти сумму четных элементов и произведение не четных элементов.

var a: array [1..6] of integer;  i,p,s, max: integer; begin max := a[i]; p:=1; s:=0;   for i:= 1 to 6 do     if a[i] > max then  max := a[i]; //находим максимальный     if a[i] mod 2 = 0 then s:= s+ a[i]//находим сумму четных    else p:= p*a[i];//находим произведение нечетных   writeln(max);//вывод максимального  writeln(s);//вывод суммы четных  writeln(p);// вывод произведения нечетных end.