Câu `5:`

var n,s,i:longint;               <khai báo>

begin

read(n);                      <nhập n>

for i:=1 to n do          <giá trị i tăng 1 đơn vị từ 1 đến n>

if i mod 2 =0 then s:=s+i;                   <nếu i chia hết cho `2` thì s=s+i> 

writeln('tong so chan nho hon hoac bang ',n,' la: ',s);           <viết kết quả>

readln

end.

Câu `6:`

var n,i,s:longint;

begin

read(n);

for i:=1 to n do

if i mod 2 <> 0 then s:=s+i;   

<nếu i chia `2` dư khác `0  ->` i là số lẻ, cộng thêm i vào tổng s>

writeln('tong cac so le nho hon hoac bang ',n,'la: ',s);

readln

end.

Hai câu là ngôn ngữ c++ nha bạn 
câu 5:
#include<iostream>
#include<math.h>
using namespace std;
int main()
{

  long temp, n;
  int S = 0;
  
  do
  {
    cout<<"\nNhập vào số nguyên n lớn hơn 0: ";
    cin>>n;
    if(n <= 0)
    {
      cout<<"\n Số n phải lớn hơn 0, vui lòng nhập lại !";
    }
  }while(n <= 0);
  
  temp = n;
  while(temp != 0)
  {
    if(temp % 2 == 0){
      S = S + temp % 10;
    }
    temp = temp / 10;
  }
  cout<<"\nTổng các chữ số chẵn của "<<n<<" là: "<< S;
 
}

câu 6 :
#include<iostream>
#include<math.h>
using namespace std;
int main()
{

  long temp, n;
  int S = 0;
  
  do
  {
    cout<<"\nNhập vào số nguyên n lớn hơn 0: ";
    cin>>n;
    if(n <= 0)
    {
      cout<<"\n Số n phải lớn hơn 0, vui lòng nhập lại !";
    }
  }while(n <= 0);
  
  temp = n;
  while(temp != 0)
  {
    if(temp % 2 == 1){
      S = S + temp % 10;
    }
    temp = temp / 10;
  }
  cout<<"\nTổng các chữ số lẻ của "<<n<<" là: "<< S;
 
}