Дан массив а размерностью 15. заполните его случайными числами от 0 до 30. выведите на экран элементы массива и их сумму. pascal

program fantscrin;

   const n =15;

   var i,s:integer;

       a: array [1..n] of integer;

begin

    for i:=1 to n do

       a[i]:=random(30);  

    for i:=1 to n do

       write(a[i], '  ');

    writeln('');

    s:=0;

    for i:=1 to n do

       s:=s+a[i];

    writeln(s);

end.