Последовательности, цикл for

[Agiza]

Помогите пожалуйста, знаю, задача несложная, но сама никак не могу понять, как её сделать.

Дано целое число n, целые числа a1,…, an. Получить последовательность b1,…, bn, которая отличается от исходной тем, что все нечетные члены удвоены.

Вот я написала програмку, только она неправильная

Program lab2v27;
uses crt;
var n,i,c,a,b:integer;
begin
clrscr;
writeln('Vvedite n');
readln(n);
a:=1;
for i:=1 to n do
a:=i+a;
writeln(a);
for i:=1 to n do
begin;
if (b mod i=0) then
b:=b+i
else
b:=b*2+i;
writeln(b);
end;
readln;
end.

[execom]

Мне кажется входные и выходные данные должны быть несколько другими.. например так:

var
  n : =10;{Дано целое число n}
  a : array [1..n] of integer=(12,34,56,34,23,67,45,87,34,92);
  {целые числа a1,…, an} 
  b : array [1..n] of integer;
  {b1,…, bn}
 i : integer;{переменная для итеррации}

в этом случае намного проще оперировать данными.. тем более в задаче не говорильсь что необходимо каким-то образом их у пользователя получить)))
на а далее что-то вроде такого бреда:

begin
for i:=1 to n do
if (i mod 2=0)  then b[i]:=a[i]*2 else b[i]:=a[i];
{далее как-то красиво выводишь массив на экран, например так}
writeln('massiv b:',#13#10);
for i:=1 to n do writeln('b[',i,']=',b[i]);
end.

по той причине что у меня стоит x64 ОС не могу запустить паскаль что бы проверить правильность.. смотри ошибки сама.. но так вроде проще..

[Agiza]

а нельзя без массивов, мы ещё их вроде не касались, и что такое array?..