{sums the numbers form 1 to 6} var sum, num : integer; begin sum := 0; for num := 1 to 6 do sum := sum + num; writeln(' sum is ', sum) end.