Pascalda Girilen Kenar Uzunluklarından Üçgen Olup Olmadığını Bulan Program, Pascalda Üçgen Hesaplama, Pascalda Üçgen Kenarı Hesaplama

Uses crt;
Var
     A,B,C:Byte;

Begin
     clrscr;
     Write('A Kenarı='); Readln(A);
     Write('B Kenarı='); Readln(B);
     Write('C Kenarı='); Readln(C);

     if (A+C>B) AND (A+B>C) AND (B+C>A) Then Writeln('Üçgen Olur.')
     Else Writeln('Üçgen Olmaz');

     Readln;
End.