Viết chương trình nhập vào một số nguyên dương n kiểm tra và thông báo ra màn hình số n vừa là số chẵn vừa chia hết cho 3 khônguyên?

uses crt;

var n:longint;

begin

write('nhap n: ');readln(n);

if (n mod 2=0) then writeln('n la so chan')

else writeln('n la so le');

if (n mod 3=0) then writeln('chia het cho 3')

else writeln('khong chia het cho 3');

readln

end.

Theo ý mình là vậy bạn test thử, nếu có sai thông cảm  >_< !

program Min;
uses crt;
var n:integer;
begin
   clrscr;
   write('Nhap n: '); readln(n);
   if (n mod 3 = 0 ) and (n mod 2 = 0) 
   then write(n,' vua la so chan, vua chia het cho 3')
   else write(n,' khong la so chan, khong chia het cho 3');
   readln
end.