procedure Gnat.Io.M is A,B:Integer:=1;C:Character;begin<<l>>Get(B);A:=A*B;Get(C);if C<' 'Then Put(a);New_Line;m;elsif C>'~'then exit;End If;goto L;end;