Nhập số n là nguyên dương từ bàn phím, thực hiện và cho biết từ 1 đến a có bao nhiêu số chia hết cho 3

#mình gửi code c++ và code pascal 

#nếu không hiểu có thể cmt và hỏi mình nhá 

#nhớ vote mình 5 sao tym ctlhn nhé <3 

code pascal 

program demsoluong;
uses crt;
var i,a,dem : integer;                //khai bao theo kieu nguyen 
begin
clrscr;
write('nhap a : ');                     //nhap a
readln(a);
for i:=1 to a do if                   // chay tu i=1 den a 

i mod 3 =0 then                   // dieu kien neu i chia het cho 3

dem:=dem+1;                     // dem so chia het cho 3 
write('so luong so chia het cho 3 la : ',dem);
readln
end.

code c++

#include <bits/stdc++.h>
#define int long long 
using namespace std;
main()
{
 int a,n,dem=0;  // khai bao bien a,n và biến dem=0 
 cin>>a;             // nhap a 
 for(int i=1;i<=a;i++)   //chay tu i =1 den a 
  if(i%3==0)   // dieu kien neu i chia het cho 3
   dem++;     // dem so chia het cho 3 
  cout<<dem;
  return 0;
}