uses crt;
var x:integer;
begin
clrscr;
write('Nhap x: ');readln(x);
if (x mod 2=0) and (x mod 3=0) then writeln('So nay chia het cho ca 2,3') else
if x mod 2=0 then writeln('So nay chia het cho 2') else
if x mod 3=0 then writeln('So nay chia het cho 3') else
writeln('Khong chia het cho 2 va 3');
readln
end.