Câu 5: 

a. (10+2)*(10+2) div (3+1)

b. ((10+2)*(10+2) - 24) div (3+1)

c. 2 * x >= 10

d. (a+b) > c | (b+c) > a

Câu 6: 

program p;
var
    a,b,c:integer;
begin
  readln(a,b,c);
  writeln((a+b+c) div 3);
  readln();
end.

Câu 7:

program p;
var
    a,b,c,p:integer;
begin
  readln(a,b,c);
  p := (a+b+c) div 2;
  writeln(sqrt(p * (p-a) * (p-b) * (p-c)):0:3);
  readln();
end.

Câu 5 :

a) (10 + 2) * (10 + 2) / (3 + 1)

b) ((10 + 2) * (10 + 2) - 24) / (3 + 1)

c) 2 * x >= 10

d) (a + b > c) and (b + c > a)

Câu 6 :

program A01;

uses crt;

var a, b, c : integer;

begin

clrscr;

write('Nhap 3 so = '); readln(a, b, c);

write('Trung binh cong 3 so = ', (a + b + c) / 3 : 2 : 2);

readln

end.

Câu 7 :

program A01;

uses crt;

var a, b, c, p, s : real;

begin

clrscr;

write('Nhap so do 3 canh = '); readln(a, b, c);

p := (a + b + c) / 2;

s := sqrt(p * (p - a) * (p - b) * (p - c));

write('Dien tich = ', s : 2 : 2);

readln

end.