uses crt;
var a,b,c,s:integer;
begin
        clrscr;
        writeln('Nhap cac canh cua tam giac:');        readln(a,b,c);
        if (a+b>c) and (a+c>b) and(b+c>a) then
        begin
                writeln('Tam giac');
                s:=a+b+c;
                writeln('Chu vi tam giac la:',s);
        end
        else
        writeln('Khong phai tam giac');
        readln;
end.