Viết chương trình kiểm tra 3 cạnh có tạo thành tam giác không? * giúp mình với mình cần gấp

2 câu trả lời

uses crt;

var a,b,c:integer;

begin

clrscr;

write('nhap a,b,c: ');readln(a,b,c);

if (a+b>c) and (a+c>b) and (b+c>a) then writeln('tao thanh tam giac')

else writeln('khong tao thanh tam giac');

readln;

end.

Uses crt;
Var 
    a,b,c: integer;
Begin
    clrscr;
    write('Nhap 3 canh: '); read(a,b,c);
    if (a+b>c) and (b+c>a) and (a+c>b)
    then writeln('3 canh tren co the tao thanh mot tam giac')
    else writeln('3 canh tren khong the tao thanh mot tam giac');
End.