действительные числа A, B, C. если нельзя выстроить треугольник с такими

var a,b,c:integer;

begin

writeln('Введите три стороны через пробел:');

read(a,b,c);

if (alt;b+c) and (blt;a+c) and (clt;a+b) then begin

if (a=b) and (b=c) and (a=c) then

writeln('3');

if (a=b) or (b=c) or (a=c) xor ((a=b) and (b=c) and (a=c)) then

writeln('2');

if (alt;gt;b) and (blt;gt;c) and (alt;gt;c) then

writeln('1');

end

else

writeln('0');

end.