uses crt;

Var x:longint;

Begin

Write('Nhap vao so can xet ');readln(x);

If (x mod 2 = 0) and (x mod 3 = 0) and (x mod 5 = 0) and (x mod 9 = 0) then

write(x,' chia het cho ca 2, 3, 5 va 9')

Else write(x,' khong chia het cho ca 2, 3, 5 va 9');

Readln;

End.

#Học tốt! ^^ Xin CTRLHN ạ.

@trinhthuy1987.

#TEAM: Hoidap247com.

uses crt;

  var a: integer;

begin

  clrscr;

  write('Nhap a = '); readln(a);

  if (a mod 2 = 0) and (a mod 3 = 0) and (a mod 5 = 0) and (a mod 9 = 0) then write(a, ' chia het cho ca 2, 3, 5, 9') else write(a, ' khong chia het cho ca 2, 3, 5, 9');

  readln

end.