uses crt;
var x: integer;
begin
clrscr;
write ('Nhap x='); readln(x);
if (x mod 5 = 0) and (x mod 7 = 0) then write ('x chia het cho ca 5 va 7') else
if (x mod 5 = 0) and (x mod 7 <> 0) then write ('x chia het cho 5 nhung khong chia het cho 7') else
if (x mod 5 <> 0) and (x mod 7 = 0) then write ('x chia het cho 7 nhung khong chia het cho 5') else
write ('x khong chia het cho ca 5 va 7');
readln;
end.
(Câu lệnh if của mình dài nên mình không dùng dấu chấm phẩy chứ không phải mình thiếu dấu chấm phẩy nha. Mình cũng chạy chương trình luôn rồi)