* Xác định bài toán :

- Input : hai số nguyên a và b

- Output : a chia hết cho b hoặc a không chia hết cho b

* Mô tả thuật toán :

- Bước 1 : nhập hai số nguyên a và b

- Bước 2 :

- Bước 2.1 : nếu a mod b = 0 thì thông báo a chia hết cho b

- Bước 2.2 : ngược lại thông báo a không chia hết cho b

- Bước 3 : kết thúc

* Câu điều kiện : 

- if a mod b = 0 then writeln('a chia het cho b') else writeln('a khong chia hết cho b');

* Viết chương trình :

uses crt;

var a, b : integer;

begin

clrscr;

write('nhap hai so duong a va b : ');readln(a, b);

if a mod b = 0 then writeln('a chia het cho b')

else writeln('a khong chia hết cho b');

readln

end.