Cau 2:

var a,b,c,d:integer;
begin
    read(a);
    read(b);
    read(c);
    read(d);
    write((a+b+c+d)/4);
readln;
end.

Cau 3:

var a,b:integer;
begin
    read(a);
    read(b);
    writeln(b,' ',a);
    a:=b;
    b:=a;
    write(a,' ',b);
readln;
end.

Cau 1:

var i,dem:integer;

function ngto(n:longint):boolean;
var bo:boolean;
i:longint;
begin
    bo:=true;
    for i:=2 to n-1 do 
    if n mod i=0 then bo:=false;
    if n>1 then ngto:=bo else ngto:=false;
end;
begin
    for i:=2 to 100 do 
    if ngto(i) then dem:=dem+i;
    write(dem);
readln;
end.

Cau 2:

var i,dem,n:longint;

begin
    read(n);
    dem:=1;
    for i:=1 to n do 
    dem:=dem*i;
    write(dem);
readln;
end.

a

3. played

4. did you go

5. Have you ever met

6. wasnt

7. has visited

8. switched

9. have lived

10. havent been

My father is an *officer*

introduce videos about *certain countries*

she often *watch her* favorite shows

câu "I can help my father and mother with the housework" nên chuyển thành "I *usually* help my father and mother with the housework"

#include <iostream> 
using namespace std;
int a,b,c,temp;
int main(){
    cin>>a;
    cin>>b;
    cin>>c;
    if(a>b){
        temp=a;
        a=b;
        b=temp;
    }
 
    if(a>c){
        temp=a;
        a=c;
        c=temp;
    }
   if(b>c){
        temp=b;
        b=c;
        c=temp;
    }
    cout<<a<<" "<<b<<" "<<c;
    return 0;
}

var n,i,dem,t:integer;
a:array[1..50] of integer;
begin
    dem:=0;
    t:=0;
    read(n);
    for i:=1 to n do 
    read(a[i]);
    for i:=n downto 1 do
    write(a[i]);
    writeln;
    for i:=1 to n do 
    if (a[i] mod 2 = 0) then dem:=dem+1;
    if a[i]<a[i-1] then t:=t+1;
    writeln(dem);
    if t=0 then write('Co lap thanh cap so +')
    else write('Ko the lap thanh cap so +');
    readln;
end.

b) 

#include <iostream>
using namespace std;
int a;
int main(){
    cin>>a;
    if (a%2==0) cout<<a<<" la so chan";
    else cout<<a<< "la so le";
    return 0;
}

Cau 3:

var n:integer;
begin
    read(n);
    if n mod 4=0 then write('Nam ',n,' co 366 ngay')
    else write('Nam ',n,' co 365 ngay');
end.

Cau 4:

var a,b,c:integer;
begin
    read(a);
    read(b);
    read(c);
    if (a+b>c) and (a+c>b) and (b+c>a) then write('Co the tao thanh mot tam giac')
    else write('Khong the tao thanh mot tam giac');
    readln;
end.

Cau 6:

var n,i:integer;
begin
    read(n);
    for i:=1 to n do 
    if n mod i=0 then write(i,' ');
    readln;
end.

a) has built -> has been built

b) consider -> considered

c) answer -> be answered