Создать одномерный массив из 10 целых чисел путем ввода с клавиатуры. Вывести массив на экран.
Найти в этом массиве сумму элементов. ПАСКАЛЬ.

ХЭЛП У МЕНЯ ЛАБА!!1!

program prog;

var

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

i,sum:integer;

begin

   sum:=0;

   for i:=1 to 10 do begin

       b[i]:=random(-18)+15;

       write(b[i], ' ');

       sum:=sum+b[i];

   end;

   writeln();

   write('Среднее арифметическое равно ', sum/10:0:2);

end.