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

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

1234

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

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

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

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

Var s: array[1 ... 4] of string = ('тысяч - ','сотен - ','десятков - ','единиц - ') ;

nm: string;

i: integer;

begin

write ('n = ') ; readln (nm) ;

for i:=1 to 4 do

writeln ('цифра ', s[i], nm[i]) ;

end.

n = 9214

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

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

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

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