Дан массив целых чисел размерностью n (n=16), отыскать сумму первых пяти

program mass;

const n = 16;

var A: array [1..n] of integer;

i, sum : integer;

begin

writeln ('Vash massiv: ');

for i:=0 to n do A[i]:= random(10);

for i:=0 to n do write(A[i], ' ');

sum:=0;

for i:=0 to 5 do sum:=sum + a[i];

writeln();

writeln('s = ', sum);

end.