Дано целое число n. определите количество нечётных цифр в данном числе. (pascal)

//PascalABC.Net
var
  n, k: integer;

begin
  readln(n);
  while n > 0 do begin
    inc(k, n mod 2);
    n := n div 10
  end;
  writeln('Количество нечетных: ', k);
end.

Знак $ указывает на абсолютную ссылку, столбец, или строка перед которой стоит $ при копировании не изменяется.
Поэтому при копировании в пределах одного столбца, $1 не изменяется строка  и везде будет
=A$1^2+10
Если бы не было $1
то было бы
=A1^2+10
=A2^2+10
=A3^2+10
...
При копировании в пределах одной строки, $1 не изменяется, а изменяется только столбец,
поэтому будет:
=A$1^2+10 в следующей  =B$1^2+10 дальше =C$1^2+10  дальше =D$1^2+10 дальше ……
Поскольку А первый столбец, то при копировании влево будет ошибка.

Исполнитель Калькулятор.
1.Степень(число,степень)
2.Корень(число,степень)
3.Сложение(число,число2)
4.Умножение(число,число2)
5.Деление(число,число2)
6.Вычитание(число,число2)
7.Вывод(алг)-выводит результат алгоритма
8.Если(условие)
9.скобка1 скобка2-для содержания операторов в условии
начало конец - для содержания всего алгоритма
10.Ошибка - сообщает об ошибке и прекращает выполнение алгоритма
11.Ввод(x)-считывает числа, введённые пользователем

Пример: Найти квадратный корень из числа 9

Начало
Корень(9,2)
Вывод(алг)
Конец

Пример: Разделить 7 на x

Начало
Ввод(x);
Если(x=0)
скобка1
Ошибка
скобка2
Деление(7,x)
Вывод(алг)
Конец

Пример: Возвести х в степень у

Начало
Ввод(х,у)
Степень(х,у)
Вывод(алг)
Конец

Калькулятор находит сумму, разность, произведение, частное, возводит в степень или извлекает корень согласно введённым пользователем данным, либо заданным по умолчанию.