Pascal之while

 program Project1;

 {$APPTYPE CONSOLE}

 uses
   SysUtils;

 begin
   { TODO -oUser -cConsole Main : Insert code here }
 end.
    program examplesum(input,output);

 {$APPTYPE CONSOLE}

 uses
   SysUtils;

 var
   i,sum:integer;

 begin
   { TODO -oUser -cConsole Main : Insert code here }
   i:=;
   sum:=;
   while i <= do
  begin
     sum:=sum+;
     i:=i+;
   end;
   write('sum',sum);
   readln;