Viết phương trình: -Nhập từ bàn phím 3 số nguyên dương a, b, c bất kì. Kiểm tra xem 3 số đó có là 3 cạnh của tam giác. Nếu có hãy tính diện tích của tam giác đó. Yêu cầu viết hàm tính diện tích của tam giác và sử dụng hàm đó trong chương trình chính

uses crt;

var a,b,c:word;

function s(a,b,c:word):real;

var p:real;

begin

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

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

end;

begin

         clrscr;

         readln(a,b,c);

         if (a+b>c) and (a+c>b) and (b+c>a) then

                  begin

                           writeln(a,' ',b,' ',c,'la 3 canh cua tam giac');

                           writeln(s(a,b,c));

                  end

         else writeln(a,' ',b,' ',c,'khong phai la 3 canh cua tam giac');

readln;

end.

uses crt;

var a,b,c: word;

procedure tinhdientich;

var a,b,c: word;

s,p: real;

begin

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

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

writeln ('dien tich tam giac la: ',s:1:2);

end;

begin

clrscr;

write ('nhap ba canh cua tam giac: ');   readln (a,b,c);

if (a+b>c) and (a+c>b) and (c+b>a) then tinhdientich

else writeln ('3 canh nay ko the tao thanh 1 tam giac');

readln;

end.