Решить в паскале.надо программу составить.. для 2ух целых чисел надо определить,являются они четными или нет.для проверки четности используем услование: остаток от деления на 2 четного числа равен 0

var a,b: longint;
begin   read(a,b);  
if a mod 2=0 then writeln('A - YES')  
else writeln('A - NO');  
if b mod 2=0 then writeln('B - YES')  
else writeln('B - NO'); end.