program tam_giac;

uses crt;

var a, b, c : integer;

begin

clrscr;

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 (b + c > a) and (a + c > b) then

writeln('do dai ba canh thuoc canh tam giac')

else writeln('do dai ba canh khong thuoc tam giac ');

readln

end.

$#QLinkVN$

Ta có cấu trúc chương trình:

program tam_giac;
uses crt;
var a,b,c:integer;
begin
        clrscr;
        writeln('Nhap canh thu 1 cua tam giac:'); readln(a);
        writeln('Nhap canh thu 2 cua tam giac:'); readln(b);
        writeln('Nhap canh thu 3 cua tam giac:'); readln(c);
        if (a+b>c) and (a+c>b) and(b+c>a) then       
        writeln('3 canh tren co the tao thanh 1 tam giac');
        else writeln('3 canh tren khong the tao thanh 1 tam giac');
        readln;
end.