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;