uses crt;
var a,b,c,P,chuvi,S: real;
begin
 clrscr;
 write('Nhap 3 so a, b, c: ');readln(a,b,c);
 if (a+b>c)and(a+c>b)and(b+c>a) then
 Begin
P:=(a+b+c)/2;
chuvi:=P*2
S:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln('3 canh ban vua nhap la 3 canh cua tam giac');
Writeln('chu vi tam giac la ',chuvi);
Writeln('Dien tich tam giac la ',S);
End
Else
Write('khong phai tam giac');
Readln
End.

Cái trên do đọc thiếu đề, hehe