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