N1:
var i,j,sum : integer;
for i:=10000 to 99999 do begin
sum:=0;
for j:=1 to 5 do begin
sum:=sum+floor(i/10^j) mod 10;
end;
if (sum mod 2 = 0) then
print (i);
end;
// Сразу оговорюсь. Не программил на нем сто лет.
// За наличие функций не отвечаю.
Floor - округление вниз до целого. Mod - остаток от деления (возможно это было оператором %)
// Проверить не мог и некогда.