RosettaCodeData/Task/Loops-N-plus-one-half/PascalABC.NET/loops-n-plus-one-half.pas

##
for var i:=1 to 10 do
  Write(i, i = 10 ? '' : ', ');