Bài 6:
var m,n:longint;
begin
write('Nhap m: '); readln(m);
write('Nhap n: '); readln(n);
if (m mod 2 =0) annd (n mod 2 =0) then write('Cả hai là số chẵn')
else if (m mod 2 <>0) and (n mod 2<>0) then write('Cả hai là số lẻ')
else write('Một số là số chẵn và một số là số lẻ');
readln
end.