Bài 1: Viết biểu thức tồn tại tam giác (a, b, c là 3 cạnh của tam giác)

Program Tamgiac;
Uses crt;
Var a, b, c: real;

Begin
        Clrscr;
        Write('Nhap do dai 3 canh: '); Readln(a, b, c);

        If (a + b > c) and (b + c > a) and (a + c > b) and (a > 0) and (b > 0) and (c > 0) then Write('Ton tai tam giac')
        Else Write('Khong ton tai tam giac');

        Readln
End.

uses crt;
var a,b,c:real;
BEGIN
        clrscr;
        write('Nhap canh thu nhat:'); readln(a);
        write('Nhap canh thu hai:'); readln(b);
        write('Nhap canh thu ba:'); readln(c);
        if (a+b>c) and (b+c>a) and (a+c>b) then
        write('Do dai 3 canh HOP LE')
        else write('Do dai 3 canh KHONG HOP LE');
        readln
END.

Chúc bạn học tốt.

Cho mình câu trl hay nhất nha.