... readln(a); Writeln(‘nhap so thu hai’); readln(b); Writeln(‘nhap so thu ba’); readln(c); If(a+b>c) And( a+c>b) And( b+c>a) then Begin Cv :=a+b+c; p :=c/2; s :=sqrt(p*(p-a)*(p-b)*(p-c)); Writeln(‘ba so vua ... Write('nhap vao so thu hai '); readln(b); Write('nhap vao so thu ba '); readln(c); If (a+b>c) and (b+c>a) and (a+b>c) then Begin Writeln(' ba so nhap vao la ba canh cua tam giac '); ĐT : 0972.311.481 ... viên trường THPT Hoàng Văn Thụ Nha Trang Procedure Kiemtra(a, b, c : Real); Begin If (a