Нормально? Нужно создать программу с логическим циклом.

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;

var

o, i: integer;

begin

i:=0;

o:=99;

while o<1000 do

begin

o:=o+2;

if o<1000 then

I:=i+o;

end;

writeln (i) ;

end.

Все еще проще можно написать

1.

Program chislo;

var i, s:Integer;

begin

i:=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.