Var
A : array[1..9] of integer; // массив 9 элементов
summa, i : integer; // переменная для суммы
begin
for i:=1 to 9 do
A[i]:= random(100) // заполняем массив рандомными числами
summa:= A[1] + A[2] + A[3] сложение трех элементов массива
writeln(summa); // вывод суммы
end.