Ok. Mình thấy code đúng, nhưng chưa đạt được cho lắm. Cần check các số vừa chia hết cho 3 và 5. Vd là 30. Cũng chưa cho ra màn hình số nguyên đó không chia hết cho cả 3 và 5. Mình sửa lại code 1 chút, sẽ ra thế này:

Program BAI_TAP;
Uses crt;
Var N:Integer;
Begin
clrscr;
Write('Nhap so N = ');readln(N);
if ((N mod 3 = 0) and (N mod 5 = 0)) then 
    write('N chia het cho ca 3 va 5')
else
If(N mod 3=0)then 
   Write('N chia het cho 3')
else
If(N mod 5=0)then
   Write('N chia het cho 5')
else write('N khong chia het cho ca 3 va 5');
readln
End.

Ở đây mình chỉ nói thêm nếu chỉ có 1 dòng code không cần nhất thiết đặt trong begin và end để tránh làm code rối.

Chúc bạn học tốt!

Bạn tham khảo nha:

program BAI_TAP;
uses crt;
var N:Integer;
begin
clrscr;
write('Nhap N: '); readln(n);
if N mod 3=0 then write('N chia het cho 3')
else if N mod 5=0 then write('N chia het cho 5');
readln
end.