Uses crt;
Var x, y: integer;
Begin
     Clrscr;
     Write('Nhap x = '); readln(x);
     y:=x mod 3;
     Writeln('So du la: ',y);
Readln
End.
* Not copy ✅
- Đừng quên cảm ơn, vote 5 sao và cho mình câu trả lời hay nhất nha ! Cảm ơn !! 🤧☘️ ( Nếu đúng ) 
Chúc cậu học tốt !!  🙆♀️💙 ~