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