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.
Вариант 2
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.