giúp vs ạ Đề bài: nhập vào máy, kiểm tra 1 số có chia hết cho 5 k? kiểm tra số nhập vào có chia hết cho 2 và 5 k? gợi ý:dùng phép chia có dư là mod

uses crt;

var a: Integer;

begin

clrscr;

writeln('Nhap mot so nguyen bat ki'); readln(a);

if a mod 5=0 then writeln('So do chia het cho 5')

else writeln('So do khong chia het cho 5');

if a mod 2=0 then writeln('So do chia het cho 2')

else writeln('So do khong chia het cho');

readln

end.

uses crt;

var a: Integer;

begin

clrscr;

writeln('Nhap mot so nguyen bat ki'); readln(a);

if a mod 5=0 then writeln('So do chia het cho 5')

else writeln('So do khong chia het cho 5');

if a mod 2=0 then writeln('So do chia het cho 2')

else writeln('So do khong chia het cho2');

readln

end.