Var a, b, c: real; {стороны треугольника}
begin
write (a=); read(a);
write (b=); read(b);
write (c=); read(c);
if (a=b) or (a=c) or (b=c) write (Treugolnik ravnobedrenniy)
else write (Treugolnik ne ravnobedrenniy);
end.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.