Каких чисел?Больше подробностей,так не как не вычеслить...
1)Вариант:
begin
var ar:=arrrandom(10, -5, 5);
//ar.Println;
end.
2)Вариант:
var
ar: array[1..10]of integer;
begin
for var i := 1 to 10 do ar[i] := random(-5, 5);
//for var i := 1 to 10 do write(ar[i],' ');
end.
var
i,p:integer;
begin
p:=1;
for i:=7 to 12 do
p:=p*i;
writeln(p);
end.
Http://txt.org/<span>ftp.net
</span>Ответ: Г В Ж Е Д Б А