Programe bai1;
Uses crt;
Var a: Interger;
       b: real;
Writeln('nhap so a:'); Readln(a);
Writeln('nhap so b:'); Readln(b);
if a mod b = 0 then writeln('a chia het cho b') else writeln('a khong chia het cho b');
readln;
end.