var a,b,c,cv:word;

begin

write('nhap vao so a=');readln(a);

write('nhap vao so b=');readln(b);

write('nhap vao so c=');readln(c);

if (a+b>c) and (b+c>a) and (a+c>b) then writeln('a,b,c tao nen tam giac')

else

writeln('a,b,c khong tao nen tam giac');

cv:=a+b+c;

writeln('chu vi tam giac:',cv);

readln;

end.