1 2 3 4 5 6 7 8 9 10 11 12 13
program SimpleLoop; var i, sum: integer; begin i := 1; sum := 0; while i <= 5 do begin sum := sum + i; i := i + 1; end; end.