var i:word;begin for i:=0to 10do write(^\x01,i:-2,841/1.415**i:5:0,'mm x',1189*0.707**i:5:0,'mm ')end.
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page