Нормально? Нужно создать программу с логическим циклом.
Program p_1;
Uses crt;
Var i:integer;
Begin
Clrscr;
i:=1;
While i>1000 do
begin
Write(i);
i:=i+(sqr(2+3));
end;
readln;
end.

еще?

Хватит) спасибо

Спасибо) Уже не надо)

program fgdg;varo,i: integer;begini:=0;o:=99;while o<1000 dobegino:=o+2;if o<1000 thenI:=i+o;end;writeln(i);end.

Все еще проще можно написать1.Program chislo;var i,s:Integer;begini:=100;while i<=999 do begin  if (i mod 2 <> 0) then s:=s+i;  Inc(i); end;Writeln(s);end.2. Число в обратном порядке (ввод с клавиатуры)Program sum_3;var n,s:Integer;begin Read(n); while(n>0) do  begin   s:=n mod 10;   n:=n div 10;   Write(s);  end;end.