Дан массив из 15 целых чисел заполненный случайными числами из промежутка

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 sgt;p then writeln(Сумма  , s, больше, чем творение , p)
else if slt;p then writeln(Сумма  , s, меньше, чем творение , p)
else writeln(Сумма , s, одинакова творенью , p)
end.