RosettaCodeData/Task/Loops-N-plus-one-half/PascalABC.NET/loops-n-plus-one-half.pas
2024-07-13 15:19:22 -07:00

3 lines
57 B
ObjectPascal

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