题目：
输入一个四位数，分别输出它个位，十位，百位，千位上的数字（要求，输出时每个数字间空一格）。
代码：
1 program work20161201; 2 var 3 a,b,c,d,e:integer; 4 BEGIN 5 readln(a); 6 e:=a div 1000; 7 d:=a mod 1000 div 100; 8 c:=a mod 100 div 10; 9 b:=a mod 10; 10 writeln(b,c:2,d:2,e:2); 11 END.
老师的答案：
