Написать программу, определяющую сумму трехзначных чисел, содержащих только нечетные цифры. Определить также, сколько четных цифр в найденной сумме — Pascal(Паскаль)

uses crt;
function Nechet(n:word):boolean;
var p:word;
begin
Nechet:=true;
p:=n;
while p>0 do
 begin
  if (p mod 10)mod 2=0 then Nechet:=false;
  p:=p div 10;
 end;
end;
function Chet(n:longint):byte;
var p:longint;
    s:byte;
begin
p:=n;
s:=0;
while p>0 do
 begin
  if (p mod 10) mod 2=0 then s:=s+1;
  p:=p div 10;
 end;
Chet:=s;
end;
var i:word;
sm:longint;
begin
clrscr;
sm:=0;
writeln('Трехзначные числа из нечетных цифр');
for i:=111 to 999 do
if Nechet(i) then
 begin
  write(i:4);
  sm:=sm+i;
 end;
writeln;
writeln('Их сумма=',sm);
write('Количество четных цифр в сумме=',Chet(sm));
readln
end.