Var a,a1,a2,a3,a4:integer; begin write('a = '); readln(a); a1:=a div 1000; a2:=a div 100 mod 10; a3:=a mod 100 div 10; a4:=a mod 10; writeln('цифра тысяч - ',a1); writeln('цифра сотен - ',a2); writeln('цифра десятков - ',a3); writeln('цифра единиц - ',a4); end.
Пример: a = 1234 цифра тысяч - 1 цифра сотен - 2 цифра десятков - 3 цифра единиц - 4