Program treygolnik;
Var
a,b,c: real;
begin
write('1 сторона треугольника: '); readln(a);
write('2 сторона треугольника: '); readln(b);
write('3 сторона треугольника: '); readln(c);
if (a<b+c) and (b<a+c) and (c<a+b) then
begin
writeln('Треугольник с данными сторонами построить можно');
if ((a=b) and (b<>c) and (a<>c)) or ((b=c) and (c<>a) and (b<>a)) or ((a=c) and (a<>b) and (c<>b))
then writeln('Этот треугольник равнобедренный');
end
else writeln('Треугольник с данными сторонами построить нельзя');
end.
