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