Pascal házi segítség?

Ez egy nagyon egyszerű feladat. Hol akadtál el? Mutasd a kódot ameddig eljutottál. Adok kis segítséget, írd át pascalra.

program fej

i,j,x = egész

Beolvas (x)

Ciklus amíg j kisebb egyenlő x

ha i maradékos osztás 2 nem egyenlő 0 akkor

kiír (i)

j=j+1

feltétel vége

i=i+1

ciklus vége

program vége

program:

x, i egész számok.

beolvas(x);

i = 1;

ciklus amíg (i <= x):

kiír(2*i-1);

i=i+1;

ciklus vége;

program vége.

Ez egy roppant egyszeru feladat :

Program xyz;

Uses crt;

Var i,x:longint;

begin

clrscr;

write('x=');readln(x);

for i:=0 to x do write(i*2+1,' ');

readkey;

end.