program bai_giai;
uses crt;
var n,m:integer;
begin
clrscr;
write('Nhap m: '); readln(m);
write('Nhap n: '); readln(n);
if (m mod 2=0) and (n mod 2=0) then write('Ca hai so deu la so chan')
else if (m mod 2=1) and (n mod 2=1) then write('Ca hai so deu la so le')
else write('Mot so chan, mot so le');
readln;
end.