procedure gnat.io.x is n:integer;s:string(1..99);begin get(n);for i in 1..n loop s:=(others=>' ');s(i):='X';s(1+n-i):='X';put_line(s(1..integer'max(i,1+n-i)));end loop;end;
Note that non-ascii characters in the above source code will be escaped (such as \x9f).