program z1;Var a:integer;Begin read(a);if (a>9) and (a<100) then writeln(a, '-двузначное число')else writeln(a, '-не является двузначным числом');end.
program z1;
Var a:integer;
Begin
read(a);
if (a>9) and (a<100) then writeln(a, '-двузначное число')
else writeln(a, '-не является двузначным числом');
end.