Program Pr1;uses crt;var a,b,c:integer; f:boolean;Beginclrscr;f:=false;readln(a,b,c);if (a mod 2=0) or (b mod 2=0) or (c mod 2=0) then f:=true;writeln(f);end.
Program Pr1;
uses crt;
var a,b,c:integer;
f:boolean;
Begin
clrscr;
f:=false;
readln(a,b,c);
if (a mod 2=0) or (b mod 2=0) or (c mod 2=0) then f:=true;
writeln(f);
end.