Bài 1:

Uses crt;
Var 
    a,b: integer;
Begin
    clrscr;
    readln(a,b);
    if (a+b) mod 2 =0 then writeln('Tong la so chan') else writeln('Tong la so le');
End.

Bài 2:

Uses crt;
Var 
    a,b: integer;
Begin
    clrscr;
    readln(a,b);
    if a>b then writeln(b) else if a<b then writeln(a) else writeln('0');
End.

Bài 3:

Uses crt;
Var 
    a,b,c: integer;
Begin
    clrscr;
    readln(a,b,c);
    writeln((a+b)/3);
End.

1, #include<iostream>

using namespace std;

int main(){

int a,b,s;

cin>>a>>b;

s = a+b;

if(s%2==0){

cout<<"so chan";

}else{

cout<<"so le";

}

}

2,

#include<iostream>

using namespace std;

int main(){

int a,b;

cin>>a>>b;

if(a>b){

cout<<a;

}else{

cout<<b;

}
}

3,

#include<iostream>

using namespace std;

int main(){

float a,b,c,tbc;

cin>>a>>b>>c;

tbc = (a+b+c)/3;

cout<<tbc;

}