Ввести два целых числа. Определить, какое из них четное. Паскаль!

В программе не учитано, что оба числа могут быть четные/нечетные.

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.