Послідовність значення bi=2i+3i+1

program poslidovnist;

var i,n,b,c,d: integer;

begin

writeln ('vvedit kilkist chisel');

readln (n);

b:=2;

c:=9;

for i:=1 to n do

begin

d:=b+c;

writeln (d:2,' ');

b:=b*2;

c:=c*3;

end;

readln

end.