uses crt; var a,b,c:longint;dt:real; begin clrscr; write('a=');readln(a); write('b=');readln(b); write('c=');readln(c); if(a+b>=c)and(a+c>=b)and(b+c>=a)then begin dt:=(a+b+c)/2; writeln('dien tich hinh tam giac do la:',dt); end else writeln('canh a,b,c ko phai la hinh tam giac'); readln; end. chúc bạn học tốt cho mình xin hay nhất ạ
