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

Question

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

Answer 1

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.

---