Определить из каких цифр состоит десятизначное число   Паскаль программа + блок-схема

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.