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

Паскаль

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

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.