program tamgiac;

uses crt;

var a,b,c: integer;

begin

clrscr;

write( 'Nhap ba so a,b,c:'); readln( a,b,c);

if (a+b>c) and ( a+c>b) and ( b+c>a) then writeln( ' La do dai 3 canh cua tam giac')

else writeln( 'Khong la do dai 3 canh cua tam giac');

readln;

end.

`\color{blue}{\text{Program Likervietnam;}}`

`\color{blue}{\text{Uses crt;}}`

`\color{blue}{\text{Var}}`

`\color{blue}{\text{a,b,c:integer;}}`

`\color{blue}{\text{Begin}}`

`\color{blue}{\text{Clrscr;}}`

`\color{blue}{\text{ Writeln('Nhap gia tri a,b,c:');readln(a,b,c);}}`

`\color{blue}{\text{ If ((a + b) > c) and ((b + c) > a) then write('a,b,c tao thanh mot tam giac') else}}` `\color{blue}{\text{write('a,b,c khong tao thanh mot tam giac');}}`

`\color{blue}{\text{ Readln;}}`

`\color{blue}{\text{End.}}`