for k := 0 to 5 do
  (
    k := k + 1;
    ()
  )