Дана десятичная запись натурального числа N. Определить количество нечетных цифр числа N - Turbo Pascal

Формулировка задачи:

Дана десятичная запись натурального числа N. Определить количество нечетных цифр числа N. Что значит десятичная запись, как это записать я не знаю. Подскажите пожалуйста как записать на Паскале.

Вот я решила для натурального числа, а что значит десятичная запись не знаю, как записать это в паскале?.Подскажите пожалуйста.

program nechetnie_chisla;
var
  n: longint;
  k: byte;
begin
  k:=0;
  write('Введите число n: ');
  readln(n);
  while n>0 do
  begin
    if n mod 10 mod 2<>0 then k:=k+1;
    n:=n div 10;
  end;
  writeln('В числе  ',k,' нечетных цифр');
  
end.

Решение задачи: «Дана десятичная запись натурального числа N. Определить количество нечетных цифр числа N»

Листинг программы

uses crt;
function StrCopy(str:string;start,stop:integer):string;
var i:integer;
    s:string;
begin
s:='';
for i:=start to stop do
s:=s+str[i];
StrCopy:=s
end;
var st:string;
    n,k:integer;
begin
clrscr;
writeln('Введите строку');
readln(st);
repeat
writeln('Введите номер начала и конца копирования 0<n<k<=',length(st));
readln(n,k);
until(n>0)and(k>n)and(k<=length(st));
write(StrCopy(st,n,k));
readln
end.

Объяснение кода листинга программы

Этот код написан на языке Turbo Pascal и выполняет следующие действия:

Создает функцию StrCopy, которая принимает строку, начальный индекс и конечный индекс для копирования. Эта функция не используется в данном коде.
Создает переменные n и k для хранения введенных пользователем данных.
Очищает экран с помощью функции clrscr.
Запрашивает у пользователя ввести строку.
Проверяет, что введенные данные корректны (n меньше 0 или k больше n и k меньше или равно длине строки).
Копирует подстроку из строки st с помощью функции StrCopy.
Выводит результат на экран.
Запрашивает у пользователя ввести еще один набор данных.
Повторяет шаги 4-8 до тех пор, пока пользователь не введет некорректные данные.