Даны три произвольных числа a, b, c, значение которых задают длины сторон треугольника. Выведите 0, если нельзя построить треугольник с такими длинами сторон; 3, если получается равностороний треугольник; 2 равнобедренный; 1 в остальных случаях. Задача в Паскале!

program t3;

var a, b, c:real; {допустимо поменять на integer}

begin

writeln ('Vvedit a, b, c') ;

readln (a, b, c) ;

if (a<=b+c) and (b<=a+c) and (c<=a+b) then writeln ('0') ; else

if (a=c) and (c=b) then writeln (3) ; else

if (a=c) or (a=b) or (b=c) then writeln ('2') ; else

writeln ('1') ;

readln

end.