Pascal之while

 1 program Project1;
 2 
 3 {$APPTYPE CONSOLE}
 4 
 5 uses
 6   SysUtils;
 7 
 8 begin
 9   { TODO -oUser -cConsole Main : Insert code here }
10 end.
11    program examplesum(input,output);
12 
13 {$APPTYPE CONSOLE}
14 
15 uses
16   SysUtils;
17 
18 var
19   i,sum:integer;
20 
21 begin
22   { TODO -oUser -cConsole Main : Insert code here }
23   i:=1;
24   sum:=0;
25   while i <=100 do
26  begin
27     sum:=sum+1;
28     i:=i+1;
29   end;
30   write(‘sum‘,sum);
31   readln;