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 uses16   SysUtils;17 18 var19   i,sum:integer;20 21 begin22   {
     TODO -oUser -cConsole Main : Insert code here }23   i:=1;24   sum:=0;25   while i <=100 do26  begin27     sum:=sum+1;28     i:=i+1;29   end;30   write('sum',sum);31   readln;