program KiemTraChiaHet;
var a, b: integer;
begin
write('Nhap vao a: ');
readln(a);
write('Nhap vao 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.