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;