В одномерном массиве, состоящем из n вещественных элементов, вычислите: 1) сумму положительных, кратных 5 элементов массива; 2) произведение элементов массива, расположенных между максимальным кратным 10 и минимальным четным элементами. pascal

Program a;var s: array of integer;x,n,p,sum,max,min,i,k,o,m:integer;beginp:=1;sum:=0;m:=-1;o:=-1;max:=-MaxInt;min:=MaxInt;Write('n= ');read(n);setlength(s,n);Writeln('Перечислите значения:');for x:=0 to n-1 do beginread (s[x]);k:=s[x];if (k>0) and ((k mod 5) =0) then sum:=sum+k;if ((k mod 10)=0) and (k>max) then begin max:=k; o:=x; end;if ((k mod 2) = 0) and (k<min) then begin min:=k; m:=x; end;end;Writeln('Сумма = ',sum);if (ABS(o-m)=1) or (o=m) or (o=-1) or (m=-1) then write('Диапазон не найден') else beginif (o>m) thenfor i:=m+1 to o-1 dop:=s[i]*pelse for i:=o+1 to m-1 dop:=s[i]*p;writeln('Произведение = ',p);end;end.