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

var x: array [1 ... 15] of integer;

s, p: int64;

begin

randomize;

s:=0; p:=1;

for i:integer:=1 to 15 do

begin

x[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

else writeln ('Сумма ', s, ' равна произведению ', p)

end.