Дано натуральное трехзначное число. Если 2 цифра больше 1, то выводим «да» иначе «нет»
Program yes_no; var n: integer; begin write('Введите число: '); readln(n); if (n mod 100 div 10) > 1 then writeln('да') else writeln('нет'); end.