procedure gnat.io.a is x:integer;begin get(x);while x>=0 loop put(x);new_line;x:=x-1;x:=x-10**(x'img'length-2)+1;end loop;end;
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page