Определить из каких цифр состоит десятизначное число

Паскаль

программа + блок-схема

var n:integer;

x1, x2, x3, x4, x5, x6, x7, x8, x9, x10:integer;

begin

read (n) ;

x1:=n div 1000000000;

x2:=n mod 1000000000 div 100000000;

x3:=n mod 100000000 div 10000000;

x4:=n mod 10000000 div 1000000;

x5:=n mod 1000000 div 100000;

x6:=n mod 100000 div 10000;

x7:=n mod 10000 div 1000;

x8:=n mod 1000 div 100;

x9:=n mod 100 div 10;

x10:=n mod 10 div 1;

writeln ('1 = ', x1) ;

writeln ('2 = ', x2) ;

writeln ('3 = ', x3) ;

writeln ('4 = ', x4) ;

writeln ('5 = ', x5) ;

writeln ('6 = ', x6) ;

writeln ('7 = ', x7) ;

writeln ('8 = ', x8) ;

writeln ('9 = ', x9) ;

writeln ('10 = ', x10) ;

end.