PASCAL：如何将一个四位数的各位数字分解出来

var a,b,c,d,n:longint;
begin
readln(n);
a:=n div 1000;//分离千位数；
b:=n div 100 mod 10;//分离百位数；
c:=n div 10 mod 10;//分离十位数；
d:=n mod 10;//分离个位数；
writeln(a,' ',b,' ',c,' 'd,' ');
readln;
end.
希望楼主采纳