Program baitap;

Uses crt;

Var a,b,c:real;

Begin

Clrscr;

Write('Nhap do dai 3 canh cua tam giac:');

Readln(a,b,c);

If (a+b>c) and (b+c>a) and (a+c>b) then writeln('a,b,c la ba canh cua tam giac')

Else writeln('a,b,c khong la ba canh cua tam giac');

Readln

End.

$#QLinkVN$

CẤU TRÚC CHƯƠNG TRÌNH CỤ THỂ NHƯ SAU:

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.