program ba_canh_tam_giac;

uses crt;

var a,b,c: real;

Begin

clrscr;

write('Nhap ba so a, b và c: '); readln (a,b,c);

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

writeln (' a,b va c la ba canh cua mot tam giac ')

else writeln ( ' a,b va c khong la ba canh cua mot tam giac ');

if (c*c=a*a+b*b)or(b*b=c*c+a*a)or(a*a=b*b+c*c) then  

       writeln('Day la tam giac vuong')    

  else          

writeln('Day la tam giac thuong');   

if(a=b)or(b=c)or(c=a) then

writeln('Day la tam giac cân')    

  else          

writeln('Day la tam giac thuong');   

if(a=b=c)then

writeln('Day la tam giac đều')    

  else          

writeln('Day la tam giac thuong');   

readln

end.

đánh code trên này khó đánh lắm nên bạn thông cảm 

Nếu có lỗi thì nói mình nhé. (Xin câu trả lời hay nhất ^^) 

program Hello;
uses crt;
var a, b, c:real;
    vuong, can, thuong, tg:string;
begin
clrscr;
    Write('Nhap a, b, c: ');
    read(a,b,c);
    clrscr;
    Writeln('a = ', a, ', b = ', b, ', c = ', c);    
    if (a+b>c) and (a+c>b) and (b+c>a) then
        begin
            if (a=b) or (a=c) or (b=c) then
                if (a=b) and (b=c) then
                    can:='deu '
                else
                    can:='can'
            else
                can:='';
            tg:='tao thanh tam giac '; {tạo thành tam giác}
            if (a*a+b*b=c*c) or (a*a+c*c=b*b) or (c*c+b*b=a*a) then
                vuong:='vuong '
            else
                vuong:='';
        end
    else
        tg:='khong tao thanh tam giac';  {không tạo thành tam giác}
Writeln('Ba canh vua nhap ', tg, vuong, can);      
end.