Помогите 1)Записать в тетради программку, выводящую на экран сумму всех нечетных

var

   s : integer;

begin

   for var i := 0 to 1000 do if i mod 2 gt; 0 then s += i;

   writeln('s=', s);

end.    

var

   n : integer;

begin

   write('введите n=');

   readln(n);

   for var i := 1 to n do write(i, ' ');

end.

1)var

a,b:integer;

begin

 a:=0;

 b:=1;

 repeat

   a:=a+b;

   b:=b+2;

 until bgt;1000;

 writeln(a,' ',b);

end.

Запиши в тетради только.

2)var

b,n:integer;

begin

 readln(n);

 b:=0;

 repeat

   inc(b);

   write(b,' ');

 until bgt;=N;  

end.