Viết chương trình nhập hai số tự nhiên N,M và thông báo ‘Dung’ nếu N,M cùng tính chẵn lẻ và ngược lạo

program phuongt;

uses crt;

  var m, n: 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(‘Dung’) 

           else

                  if (m mod 2 = 1) and (n mod 2 = 1) then write(‘Dung’) 

                  else

                          write(‘Sai’);

           readln

end.