дан массив А ращмерностью 15. Заполните его случайными числами от 0

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.

var

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

b,c:integer;

Begin

for b:=1 to 15 do begin

a[b]:=random(31);

write(a[b],' ');

c:=c+a[b];

end;

writeln;

writeln(c);

end.