ЧТо тут не так? program jenty2; Var a, b, c :integer; Begin Writeln ('введите три числа'); Readln (a, b, c); If (a begin If (a=b) or (a=c) or (b=c) then Writeln (' равносторонний') Else begin If (a=b) or (a=c) or (b=c) then Writeln (' равнобедренный') Else Writeln (' разносторонний') end; end Else Writeln ('не существует'); End.

Если при сложении с единицей в некоторой системе счисления из двухзначного числа получается трехзначное, то двухзначное число было максимально возможным двухзначным числом, записанным в этой системе и обе его цифры были на единицу меньше основания системы счисления.
Таким образом, можно утверждать, что заданные числа это 33₄, 66₇, 88₉
Число 100 в системе счисления по оcнованию n равно n², т.е. для указанных чисел это будут значения 4²=16, 7²=49 и 9²=81. Остается вычесть единицу.
Соответственно, в десятичной системе 33₄=15, 66₇=48, 88₉=80