procedure gnat.io.a is i,x:integer;s:string(1..99);begin get(i);get(s(1));get_line(s,x);get_line(s(x+1..99),x);put(s(1..i+i/10+8));end;
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page