Информатика, 11 класс! МАССИВЫпомогите пожалуйста с первой задачей!

Question

Информатика, 11 класс! МАССИВЫ
помогите пожалуйста с первой задачей!

---

Answer 1

Program n1;
const n=13;
var a: array[1..n] of real;
i: integer;
p: real;
begin
p:=1;
for i:=1 to n do
begin
readln(a[i]);
p:=p*a[i];
end;
writeln('массив:');
for i:=1 to n do write(a[i],' ');
writeln;
writeln('произведение: ',p);
end.