................................................................................................
Program yes_no;
var
n: integer;
begin
write('Введите число: ');
readln(n);
if (n mod 100 div 10) > 1 then
writeln('да')
else
writeln('нет');
end.
Если 8 и 2 - основания системы счисления, то:
10₈ = 1*8 = 8₁₀
10₂ = 1*2 = 2₁₀
10 + 10₈ + 10₂ = 10 + 8 * 2 = 26