задания выполняются на VBA (в excel)

Для перевода в 16-ричную систему счисления будем делить нацело число на 16 и записывать остатки от деления в обратном порядке:

8297 / 16 = 518 (остаток 9)
518 / 16 = 32 (остаток 6) 
32 / 16 = 2 (остаток 0)
2 / 16 = 0 (остаток 2)

8297₁₀ = 2069₁₆

Для осуществления обратного перевода пронумеруем цифры числа 2069₁₆ справа налево, начиная с 0.

2 (3)  0 (2)  6 (1)  9 (0)

Теперь будем возводить основание системы (16) в степень указанную в скобках и умножать на коэффициент перед скобками.

2 * 16³ + 0 * 16²  + 6 * 16¹ + 9 * 16⁰ = 2 * 4096 + 6 * 16 + 9 * 1 = 8192 + 96 + 9 = 8297

2069₁₆ = 8297₁₀

Var a, b, c: integer;
begin
write('Введите углы a, b, c >> ');
readln(a, b, c);
if a+b+c = 180 then
if (a>0) and (b>0) and (c>0) then
begin
if (a=b) and (b=c) then writeln('Равносторонний ');
if ((a=b) and (a<>c)) or ((b=c) and (b<>a)) or ((a=c) and (c<>b)) then writeln('Равнобедренный ');
if (a<>b) and (b<>c) and (a<>c) then writeln('Разносторонний ');
if (a=90) or (b=90) or (c=90) then writeln('Прямоугольный ');
if (a>90) or (b>90) or (c>90) then writeln('Тупоугольный ');
if (a<=89) and (b<=89) and (c<=89) then writeln('Остроугольный ')
end
else
writeln('Углы должны быть больше 0')
else
writeln('Сумма углов не равна 180 градусам');
end.