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

Question

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

Answer 1

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