Вводится четырехзначное число с клавиатуры. Определить цифру тысяч, сотен, десятков и единиц. В окне вывода должно быть так (это пример)

Введи четырехзначное число:

1234

цифра тысяч-1

цифра сотен-2

цифра десятков-3

цифра единиц - 4

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