я паскаль давно изучал синтаксис не помню но алгаритм подскажу
переменная х,j,m,у;
ввести х;
пока x > 1
делать у =остаток от деления х на 10;
если остаток от деления у на 2 = 1;
то j = j+1;
иначе m = m + 1;
x=округлить х/10;
конец
вывести "четных цифр" m "не четных цифр" j;
конец