uses crt;

var a,b,c:real;

begin

clrscr;

readln(a,b,c);

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

begin

if (a=b) and (b=c) then write('Day la tam giac deu')

else writeln('Day khong la tam giac deu');

end

else writeln('Day khong la ba canh trong mot tam giac');

readln;

end.

a = float(input("Nhap a : "))
b = float(input("Nhap b : "))
c = float(input("Nhap c : "))
if a+b>c and a+c>b and b+c>a:
    if a==b or a==c or b==c:
        if a==c==b:
            print("Day la ba canh cua tam giac deu")
        else:
            print("Day la ba canh cua tam giac can")
    elif (a**2)+(b**2)==c**2 or (a**2)+(c**2)==b**2 or (c**2)+(b**2)==a**2:
        print("Day la ba canh cua tam giac vuong")
    else:
        pass
else:
    print("Day khong phai ba canh cua tam giac")

Viết chương trình ở ngôn ngữ lập trình nào vậy bạn ?

uses crt;

var a,b,c,p,s:real;

begin

clrscr;

repeat

write('Nhap a='); readln(a);

write('Nhap b=');c readln(b);

write('Nhap c='); readln(c);

until (a>0) and (b>0) and (c>0);

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

begin

kt:=0;

if sqr(a)=sqr(b)+sqr(c) then kt:=1;

if sqr(b)=sqr(a)+sqr(c) then kt:=1;

if sqr(c)=sqr(a)+sqr(b) then kt:=1;

if kt=0 then writeln('Day khong la tam giac vuong')

else begin

              writeln('Day la ba canh trong mot tam giac vuong');

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

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

writeln('Dien tich tam giac vuong la: ',s:4:2);

end;

end

else writeln('Day khong la ba canh trong mot tam giac');

readln;

end.

#include <iostream>
using namespace std;
int main()
{
    int a,b,c,kt;
    cout<<"Nhap a=";
    cin>>a;
    cout<<"Nhap b=";
    cin>>b;
    cout<<"Nhap c=";
    cin>>c;
    if ((a>0) and (b>0) and (c>0) and (a+b>c) and (a+c>b) and (b+c>a))
    {
        kt=0;
        if (a*a==b*b+c*c) kt=1;
        if (b*b==a*a+c*c) kt=1;
        if (c*c==a*a+b*b) kt=1;
        if ((a==b) and ((a<c) or (a>c)) and ((b<c) or (b>c))) kt=2;
        if ((b==c) and ((b<a) or (b>a)) and ((c<a) or (c>a))) kt=2;
        if ((c==a) and ((c<b) or (c>b)) and ((a<b) or (a>b))) kt=2;
        if ((a==c) and (b==c)) kt=3;
        if (kt==2) cout<<"Day la tam giac can";

else cout<<"Day khong la tam giac can";
    }
    else cout<<"Day khong la ba canh trong mot tam giac";
    return 0;
}

uses crt;

var a,b,c:real;

begin

clrscr;

repeat

write('Nhap a='); readln(a);

write('Nhap b='); readln(b);

write('Nhap c='); readln(c);

until (a>0) and (b>0) and (c>0);

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

begin

writeln('La do dai ba canh cua tam giac');

writeln('Chu vi tam giac la: ',a+b+c:4:2);

end

else writeln('Khong phai la do dai 3 canh cua tam giac');

readln;

end.