Дан массив из 15 целых чисел заполненный случайными числами из интервала [-20; 20]. Определить, что больше сумма или

var x: array [1..15] of integer;s,p: int64;beginrandomize;s:=0; p:=1;for i:integer:=1 to 15 do beginx[i]:= random(41)-20;write(x[i]:4); s:=s+x[i];p:=p*x[i]; end;writeln();if s>p then writeln(\'Сумма  \', s, \' больше, чем произведение \', p)else if s<p then writeln(\'Сумма  \', s, \' меньше, чем произведение \', p) else writeln(\'Сумма \', s, \' равна произведению \', p)end.