Chương trình xét 3 số a, b, c có phải là 3 cạnh của một tam giác hay không:
Program Xet_a_b_c_co_hop_thanh_mot_tam_giac_khong
Var a, b, c: integer;
Begin
    Writeln('Nhap Do Dai 2 Doan Thang: '); readln(a, b, c);
    If (a + b > c) and (b + c > a) and (c + a > b) then write('Hop Thanh Tam Giac')
    Else
    Write('Khong Hop Thanh Tam Giac');
    Readln
End.