Program PROGRAMMA;
Uses crt;
var a: integer;
Begin clrscr;
write(Введите число a = );
readln(a);
if (a div 10 <=0) or (a div 10 >9) then
write(Нет) else
write(Да)
End.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.