program check_triangle;
var
    a, b, c: integer;
begin
    write('Nhap do dai canh a: ');
    readln(a);
    write('Nhap do dai canh b: ');
    readln(b);
    write('Nhap do dai canh c: ');
    readln(c);
    if (a + b > c) and (a + c > b) and (b + c > a) then
    begin
        writeln('Day la 3 canh cua mot tam giac');
        writeln('Chu vi cua tam giac la: ', a + b + c);
    end
    else
        writeln('Day khong phai la 3 canh cua mot tam giac');
end.
Chương trình trên sẽ yêu cầu người dùng nhập vào độ dài 3 cạnh a, b và c. Sau đó nó sẽ kiểm tra xem 3 số đó có phải là độ dài 3 cạnh của một tam giác hay không. Nếu đúng thì chương trình sẽ in ra màn hình thông báo rằng đó là 3 cạnh của một tam giác và tính toán chu vi của tam giác đó. Nếu không thì chương trình sẽ in ra màn hình thông báo rằng đó không phải là 3 cạnh của một tam giác.