Даны три положительных числа. Если они могут быть длинами сторон треугольника, то определить его вид по сторонам, и по углам, иначе выдать соответствующее сообщение.

Решите разветляющим алгоритмом

Var

a, b, c:integer;

x, y, z:string;

begin

writeln ('Введите стороны треугольника') ;

readln (a, b, c) ;

x:='равнобедренный';

y:='равносторонний';

z:='разносторонний';

begin

if (c=b) and (ac) then

writeln ('Треугольник',' ', x) ;

if (a=c) and (ab) then

writeln ('Треугольник',' ', x) ;

if (a=b) and (ac) then

writeln ('Треугольник',' ', x) ;

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

writeln ('Треугольник',' ', y) ;

if (ab) and (ac) and (bc) then

writeln ('Треугольник',' ', z) ;

end;

readln

end.