Если хотя бы одно из двух ведённых пользователем чисел чётно,то вывести слово «да»,в противном случае вывести «нет» — Pascal(Паскаль)

program pr1;
var a,b:integer;
begin
   writeln('Введите два числа');
   readln(a,b);
   if (a mod 2=0)or(b mod 2=0) then writeln('ДА')
  else writeln('НЕТ');
end.

program pr1;
var a,b:integer;
begin
   writeln('Введите два числа');
   readln(a,b);
   if (a mod 2=0)or(b mod 2=0) then writeln('ДА')
  else writeln('НЕТ');
  Readln;
end.