uses crt;
var n:integer;
begin
clrscr;
write('nhap n='); readln(n);
if (n>0) then
begin
if (n mod 2=0) and (n mod 3=0) then writeln(n,' vua la so chan vua chia het cho 3')
else writeln(n,' khong thoa man dieu kien cua de bai');
end
else writeln('vui long nhap so nguyen duong');
readln;
end.