program raf105;

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

i:integer;

begin

a[1]:=10;

writeln('[1] ',a[1]);

for i:=2 to 15 do

begin

 a[i]:=i*3+2*a[i-1];

 writeln('[',i,'] ',a[i]);

end;

end.

Язык программирования  PascalABC