$\text{uses crt;}$

$\text{var a,b,c: integer;}$

$\text{kt1,kt2,kt3: boolean;}$

$\text{begin}$

$\text{write('nhap a,b,c: '); readln(a,b,c);}$

$\text{if (a+b>c) and (b+c>a) and (a+c>b) then kt1:=true;}$

$\text{if kt1 = true then writeln('a,b,c la do dai 3 canh cua tam giac thuong')}$

$\text{else writeln('a,b,c khong phai la do dai 3 canh cua tam giac thuong');}$

$\text{if (a=b) and (b=c) and (a=c) then kt2:=true;}$

$\text{if (kt2 = true) and (kt1 = true) then writeln('a,b,c la do dai 3 canh cua tam giac deu')}$

$\text{else writeln('a,b,c khong phai la do dai 3 canh cua tam giac deu');}$

$\text{if (a=b) or (b=c) or (a=c) then kt3:=true;}$

$\text{if (kt3 = true) and (kt1 = true) then writeln('a,b,c la do dai 3 canh cua tam giac can')}$

$\text{else writeln('a,b,c khong phai la do dai 3 canh cua tam giac can');}$

$\text{readln;}$

$\text{end.}$

$\boxed{\text{Hieudz613}}$

Bạn tham khảo