Viết chương trình nhập ba cạnh a,b,c. Kiểm tra xem đây có phải là độ dài ba cạnh của một tam giác cân hay không (với a,b,c được nhập từ bàn phím)

Program bai1;

uses crt;

var a,b,c,cv:word;

begin

clrscr;

write('nhap vao so a=');readln(a);

write('nhap vao so b=');readln(b);

write('nhap vao so c=');readln(c);

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

begin

writeln('a,b,c tao nen tam giac');

cv:=a+b+c;

writeln('chu vi tam giac = ' ,cv)

end

else

writeln('a,b,c khong tao nen tam giac');

readln;

end.

Uses crt;

Var a, b, c:real;

Begin

Readln(a);

Readln(b);

Readln(c);

If (a + b > c) or (a + c > b) or (b + c > a) then writeln('tam giác')

Else writeln('Khong phai tam giac');

Readln

End.