Mọn người viết cho mình cái chương trình này : Đề : Kiểm tra xem 3 số bất kì có phải là cạnh của tam giác ko ?

Program Kiem_tra_tam_giac;

Uses crt;

Var a,b,c,cv,s,p: real;

BEGIN

Clrscr;

Writeln(‘nhap so thu nhat’); 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 nhap la ba canh cua tam giac’);

Writeln(‘ chu vi cua tam gia la’, cv: 4: 2, ‘ dien tich cua tam giac la’, s:6:2);

End

Else Writeln(a,’, ‘, b,’, ‘, c, ‘ khong phai la ba canh cua tam giac’);

Readln;

End.