program nul100; var i:integer; begin for i:=0 to 100 do write(i:8); readln end.