Ответы и объяснения

2014-03-25T20:05:53+00:00
Program chik2;
var n,i,a:integer;
begin
readln(n);
a:=1;
if(n>=1)then write(a,' ');
for i:=2 to n do
begin
a:=a*2+i;
write(a,' ');
end; 
end.