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 >_< !