RosettaCodeData/Task/Loops-N-plus-one-half/DWScript/loops-n-plus-one-half.dw

var i : Integer;

for i := 1 to 10 do begin
   Print(i);
   if i < 10 then
      Print(', ');
end;