输入任意两个两位的自然数，输出它们完整的乘法竖式。

题目：

    输入任意两个两位的自然数，输出它们完整的乘法竖式。

代码：

 1 program shen17;
 2 var
 3   a,b,c,d:integer;
 4 BEGIN
 5   readln(a,b);
 6   c:=a * (b mod 10);
 7   d:=a * (b div 10);
 8   writeln(a:10);
 9   writeln('*',b:9);
10   writeln('----------');
11   writeln(c:10);
12   writeln(d:9);
13   writeln('----------');
14   writeln(a*b:10);
15 END.
【推广】 免费学中医，健康全家人
原文地址：https://www.cnblogs.com/cnssc/p/6125783.html