задача на паскале которая генерирует последовательность и вычисляет их среднее арифм

[tanya61043]

Написать программу, которая генерирует последователь¬ность из 10 случайных чисел в диапазоне от 1 до 10, выводит эти числа на экран и вычисляет их среднее арифметическое. Реко¬мендуемый вид экрана во время выполнения программы приведен ниже.
***Случайные числа****
1 3 4 2 7 4 9 6 2 1 Сред. арифм. 3.9

[dukales]

По доброте душевной, вспомнил Паскаль.
program acx;
uses Crt;
var i,s,t: integer;
begin
Writeln('***Случайные числа****');
for i := 1 to 10 do
begin
t:=random(10);
write(t,' ');
s:=s+t;
end;
Writeln('Сред. арифм. ',s/i);
end.