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

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.

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

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.

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.