题目：
输入任意两个两位的自然数，输出它们完整的乘法竖式。
代码：
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.