1) var a, b: integer; begin readln(a, b); if (a mod 2 = 0) and (b mod 2 = 0) then writeln('оба четные') else writeln('нет'); end. 2) var a, b: integer; begin readln(a, b); if (a mod 2 = 0) or (b mod 2 = 0) then writeln('является') else writeln('нет'); end.