procedure Gnat.io.S is X,Y:Integer:=0;begin for I in 1..9 loop Get(x);Y:=Y+X;end loop;Put(Y);End;
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page