В программе не учитано, что оба числа могут быть четные/нечетные.
program vld;
var
a,b : integer;
begin
readln(a,b);
if a mod 2 = 0 then
write('Первое число четное');
if b mod 2 = 0 then
write('Второе число четное');
end.
