四則演算の乗算

注意

• このサイトの利用によって生じた損害については当方では責任を負いかねますのでご了承ください。

コード

                    program ArithMulti(input, output);

                    procedure main;
                    var a, b : integer;
                    begin
                        writeln('2つの数の積を計算します。');

                        write('a = ');
                        readln(a);

                        write('b = ');
                        readln(b);

                        writeln(a, ' * ', b, ' = ', a*b);
                    end;

                    begin
                        main
                    end.
                

実行結果

                    $ ./CalcArithMulti
                    2つの数の積を計算します。
                    a = 42
                    b = 23
                    42 * 23 = 966