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:=1;
  sum:=0;
  while i <=100 do
 begin
    sum:=sum+1;
    i:=i+1;
  end;
  write('sum',sum);
  readln;