var
  Sum10, I: Integer;
begin
  //for counts over an ordinal range;
  //the step is always 1 (or downto)
  Sum10 := 0;
  for I := 1 to 10 do
    Sum10 := Sum10 + I;
  //sum10 is 55

  WriteLn('sum10 is ', Sum10);
end.