program bai_3;

uses crt;

var a,b,c:integr;

begin

clrscr;

a:=3;

b:=5;

c:=8;

writeln('tbc',(a+b+c)/2);

a:=0;

b:=0;

c:=0;

write('nhap a,b,c: ');readln(a,b,c);

write('tbc',(a+b+c)/2);

readln;

end.

program bai_4;

uses crt;

var a,b,c,h:rael;

begin

clrscr;

h:=6;

a:=9

b:=8;

c:=7;

write('chu vi',a+b+c);

write('dien tich',(a*h)/2);

a:=0;

b:=0;c:=0;h:=0;

writeln('nhap a,c,b,h: ');raedln(a,b,c,h);

write('chu vi',a+b+c);

write('dien tich',(a*h)/2);

raedln;

end.

program trung_binh;

uses crt;

var a, b, c: integer;

tb: real;

begin clrscr;

a:= 3;

b:=5;

c:=8;

tb:= (a+b+c)/3;

writeln('trung binh cong ba so nguyen la :', tb);

readln

end.

program trung_binh;

uses crt;

var a, b, c: integer;

tb: real;

begin clrscr;

write('nhap so a :');readln(a);

write('nhap so b :');readln(b);

write('nhap so c :');readln(c);

tb:= (a+b+c)/3;

writeln('trung binh cong ba so nguyen la :', tb);

readln

end.