cách 1:

uses crt;
var tam,i,s:longint;
begin
clrscr;
for i:=10000 to 99999 do
begin
 tam:=i;
 tam:=tam mod 10000;
 tam:=tam div 10;
 s:=0;
 while tam <>0 do
 begin
  s:=s+tam mod 10;
  tam:=tam div 10;
 end;
 if s mod 2=0 then write(i,' ');
end;
readln;
end.

cách 2:

uses crt;
var tam,i,s:longint;
begin
clrscr;
i:=10000;
while i<=99999 do
begin
 tam:=i;
 tam:=tam mod 10000;
 tam:=tam div 10;
 s:=0;
 while tam <>0 do
 begin
  s:=s+tam mod 10;
  tam:=tam div 10;
 end;
 if s mod 2=0 then write(i,' ');
 i:=i+1;
end;
readln;
end.

cách 3(để tham khảo):

uses crt;
var i,j,a,code,s:longint;
s1,s2:string;
begin
clrscr;
for i:=10001 to 99999 do
begin
s:=0;
 str(i,s1);
 for j:=2 to length(s1)-1 do
 begin
  val(s1[j],a,code);
  s:=s+a;
 end;
 if s mod 2=0 then write(i,' ');
end;
readln;
end.

Cach 1:

uses crt;
var i,s,p: longint;
begin
clrscr;
    for i:=10000 to 99999 do begin
        s:=0;
        p:=i mod 1000 div 10;
        s:=p mod 10 + p mod 100 div 10 + p div 10;
        if (s mod 2 = 0) then write(i,' ');
    end;
    readln
end.

Cach 2:

uses crt;
var s: string;
    i,sum,p,code: longint;
begin
clrscr;
    for i:=10000 to 99999 do begin
        sum:=0;
        str(i,s);
        val(s[2],p,code);
        sum:=sum+p;
        val(s[3],p,code);
        sum:=sum+p;
        val(s[4],p,code);
        sum:=sum+p;
        if sum mod 2 = 0 then write(i,' ');
    end;
    readln
end.