Подпрограммы функций, Решение задачи Опции

[стас]

Написать подпрограмму-функцию, решающую задачу : Дано натуральное число n и вещественное А1 , А2, ... Аn , которые вводятся по одному . Получить последовательность А1, А1А2, А1А2А3, ..., А1А2.. Аn.

[BlackShadow]

Код

Var
 n:Integer;
 a:Array[0..100] Of Double;
 an:Double;

Begin
 Write('Enter n: ');
 ReadLn(n);
 a[0]:=1;
 For i:=1 To n Do
 Begin
   Write('Enter A',i,': ');
   ReadLn(an);
   a[i]:=a[i-1]*an
 End;
 WriteLn('Chain:');
 For i:=1 To n Do
   WriteLn(a[i])
End.