{Bài 6: Viết chương trình nhập 3 số thực a,b,c từ bàn phím, sau đó kiểm tra 3 số đó có thể là 3 cạnh của tam giác đều, tam giác cân hoặc tam giác vuông hay tam giác thường. Hiện ra màn hình chu vi và diện tích. Nếu không thông báo 'day khong phai la ba canh cua tam giac'.}
program CT;
uses crt;
var a,b,c,s,p:real;
begin
clrscr;
write('nhap a: ');readln(a);
write('nhap b: ');readln(b);
write('nhap c: ');readln(c);
if (a+b>c) and (a+c>b) and (b+c>a) then
begin
if (a=b) and (a=c) and (b=c) then
writeln('day la ba canh cua tam giac deu') else
if (a*a=b*b+c*c) or (b*b=a*a+c*c) or (c*c=a*a+b*b) then
writeln('day la ba canh cua tam giac vuong') else
if (a=b) or (a=c) or (b=c) then
writeln('day la ba canh cua tam giac can') else
writeln('day la ba canh cua tam giac thuong');
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln('chu vi tam giac la : ',p*2:0:6);
write('dien tich tam giac la : ',s:0:6);
end
else write('day khong phai la ba canh cua tam giac');
readln;
end.