Нужно написать программу подсчитывающую количество чётных и не чётных цифр в числе

//PascalABC.Net 3.0, сборка 1053var  n: longint;  d, n1, n2: integer;begin  n1 := 0; n2 := 0;  Write('Введите натуральное число: ');Read(n);  repeat    d := n mod 10;    if odd(d) then Inc(n1) else Inc(n2);    n := n div 10  until n = 0;  Write('Нечетных ', n1, ', четных ', n2)end.Тестовое решение:Введите натуральное число: 3534052Нечетных 4, четных 3