Ввести 2 числа. если оба числа > 0 и чётные,выдатьtrue, иначе false

Pascal ABC.Net 3.3.5

var
  a, b: integer;

begin
  write('Введите числа: ');
  readln(a, b);
  if (a > 0) and (b > 0) and (a mod 2 = 0) and (b mod 2 = 0)
    then
    writeln('True')
  else writeln('False');
end.