Readln(c);p := 0.5 * (a + b + c);s := sqrt(p*(p-a)*(p-c)*(p-c));Writeln('+
Dien tich hinh tam giac = ',s:6:2,' metvuong');ReadlnEnd.Bµi 8Program Hinh_cau;Vars:integer;r,v:Real;BeginWriteln('CHUONG TRINH TINH THE TICH HINH CAU');Writeln('---------------------------------');Write('Cho biet
di[r]