Дан массив из 10 целых чисел заполненный случайными числами…

program mckd; uses crt; var a: =array [1… 100] of integer; i,s: integer; beginrandomize; clrscr; for i: =1 to 10 doa[i]: =random (16); for i: =1 to 10 dos: =s+a[i]; if s mod 2=0 then writeln ('+') else ('-'); readln; end. С рандомом боюсь ошибся, но вроде по формуле