Multiply long version by D

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;

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page