Последовательность чисел с степенью до N

[SEREG@]

Обращаюсь к вам еще раз,т.к. вы помогли мне решить предыдущюу задачу,спс еще раз.
Задача:дано целое число N>0.Сделать последовательность чисел из 2 в степени с 1 до N.
например,N=5 последовательность: 2,4,8,16,32.

Сделать эту задачу,нужно переделав вот эту:
program stepen;
var
s:integer;
a:array[1..20] of integer;
function step(b:integer):integer;
var r,i:integer;
begin
r:=1;
for i:=1 to b do
r:=r*2;
step:=r;
end;
writeln('vvesti stepen');
readln(s);
writeln(step(s),'-stepen chisla');
end.

По словам учителя задача почти готова,токо надо исправить пару деталей и сделать последовательность(т.е. массив).Заранее спасибо. =)

[puporev]

Вот код. Если crt; и clrscr; не надо, убери.
Заметь, что в нескольких местах integer поменял на Longint, а то у тебя только 2^9 будет выводиться, а дальше пойдут чудеса.

program stepen;
uses crt;
var
n,i:integer;
a:array[1..20] of longint;
function step(b:integer):longint;
var r:longint;
    i:integer;
begin
r:=1;
for i:=1 to b do
r:=r*2;
step:=r;
end;
begin
clrscr;
write('vvesti n=');//по условию n, зачем s
readln(n);
for i:=1 to n do
    begin
      a[i]:=step(i);
      write(a[i],' ');
   end;
readln	
end.

[SEREG@]

Сообщение от puporev

Вот код. Если crt; и clrscr; не надо, убери.
Заметь, что в нескольких местах integer поменял на Longint, а то у тебя только 2^9 будет выводиться, а дальше пойдут чудеса.

program stepen;
uses crt;
var
n,i:integer;
a:array[1..20] of longint;
function step(b:integer):longint;
var r:longint;
    i:integer;
begin
r:=1;
for i:=1 to b do
r:=r*2;
step:=r;
end;
begin
writeln('vvesti n=');//по условию n, зачем s
readln(n);
for i:=1 to n do
    begin
      a[i]:=step(i);
      writeln(a[i],' ');
   end;
readln	
end.

Спс за помощь.А longint если заменить на integer будет работать задача?А то у меня Виста стоит и паскаль не решает задачи и я проверить не могу =(
uses crt; не понял строчку,ее можно выкинуть?

[puporev]

Если выкинуть crt, то надо выкинуть и clrscr, т.к. эта процедура из этого модуля, она в паскале нужна для очистки экрана от предыдущих записей.
Тип Longint, тот же integer, только диапазон шире, если integer до 65 000, то Longint больше 2 000 000.

[SEREG@]

Сообщение от puporev

Если выкинуть crt, то надо выкинуть и clrscr, т.к. эта процедура из этого модуля, она в паскале нужна для очистки экрана от предыдущих записей.
Тип Longint, тот же integer, только диапазон шире, если integer до 65 000, то Longint больше 2 000 000.

большое спасибо за помощь и разьяснение