С синтаксисом у меня беда, так что вы уж напильником сами доработайте. var a,i,j:byte;
var b:real;
begin
for i:=1 to 3
begin
b:=0;
for j:=1 to 10
begin
a:=random(10); //Генерация псевдослучайных чисел
b:=b+a; //Суммирование всех чисел в очереди
write(a, ", " //Вывод последовательности чисел в строчку
end
b:=b/10;
writeln("Average of sequence #", j, "=", b);
end
end.