Программа на языке Паскаль

var Sum : Longint; N : Byte;

procedure Find(Num : Longint; L : Byte);
var i : Byte;
begin
if L = N then Sum := Sum + Num
else for i := 0 to 9 do if odd( i ) then Find(Num * 10 + i, L + 1);
end;

function Chet(N : Longint) : Byte;
var K : Byte;
begin
K := 0; while N 0 do begin if not odd(N mod 10) then Inc(K); N := N div 10; end;
Chet := K;
end;

begin
Write('N = '); ReadLn(N);
Sum := 0; Find(0, 0);
WriteLn(Sum);
WriteLn(Chet(Sum));
end.