(Паскаль) 2 Заполнить с клавиатуры массив из 10 элементов. Если максимальный…

Program gt; var a: array[1… 1000]of integer; i,s,r,max,s2: integer; beginfor i: =1 to 10 dobeginread (a[i]); end; max: =a[1]; for i: =2 to 10 dobeginif (a[i]>max) then max: =a[i]; end; r: =0; for i: =1 to 5 dobeginif (a[i]=max) then r: =1; end; if (r=0) then begins: =0; for i: =1 to 10 dobeginif (a[i] mod 2=1) then s: =s+a[i]; end; end; if (r=1) then begins: =0; for i: =1 to 10 dobeginif (a[i] mod 2=0) then s: =s+a[i]; end; end; write (s); end.