a) Xác định bài toán
-Input: Số nguyên a
-Output: Kiểm tra xem a có là bội của 5 không?
b) Viết chương trình
uses crt;
var a:integer;
begin
clrscr;
write('Nhap a='); readln(a);
if a mod 5=0 then writeln('a=',a,' la boi so cua 5')
else writeln('a=',a,' khong la boi cua 5');
readln;
end.