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

Pascal ABC.Net 3.3.5var  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.