Подсчитать количество n-значных натуральных чисел, в которых сумма цифр нечетная, а младшая цифра — парная — Pascal(Паскаль)

uses crt;
var n,p,i,j,k:longint;
    s:byte;
begin
clrscr;
repeat
write('Введите количество цифр от 1 до 9 n=');
readln(n);
until n in [1..9];
j:=1;
for i:=1 to n do
j:=j*10;{определяем степень 10}
writeln(n,'-значные числа с нечетной суммой цифр и четной последней цифрой:');
k:=0;
for i:=j div 10 to j-1 do{от в 10 раз меньше до на 1 меньше}
 begin
  p:=i;s:=0;
  while p>0 do
   begin
    s:=s+p mod 10;{считаем сумму цифр числа}
    p:=p div 10;
   end;
  if odd(s)and(i mod 2=0) then{если сумма нечетная, а последняя цифра четная}
  k:=k+1;{считаем}
 end;
write('Всего таких чисел=',k);
readln
end.