Паскаль. Нужно добавить в код разность, частное и произведение. Можно сделать 2 из 3, можно с небольшими ошибками нужно

program z_2;
var s,i: integer;
a: array[1..10] of integer;
begin
s:=0;
randomize;
for i:=1 to 10 do
begin
a[i]:=random(100);
write(a[i], ' ');
s:=s+a[i]
end;
writeln ('s=', s)
end.

var s,i,p: integer;

a:array[1..10] of integer;

begin

s:=0;

p:=1;

randomize;

for i:=1 to 10 do

begin

a[i]:=random(100);

write(a[i], ' ');

s:=s+a[i];

p:=p*a[i];

end;

writeln;

writeln ('s=', s);

writeln ('p=', p);

end.

смог добавить произведение,а вот с частным условие не совсем полное, частное чего? последнего и первого элемента? суммы на количество?