var i:integer; begin for i:=1 to 10 do write(i,' '); readln end.
for i:=1 to 10 do text1.caption:=text1.caption+inttostr(i)
for(int i = 1;i <= 10;i++) cout << i << " ";