Var i,n,k,b: integer;begin write(' b = '); readln(b); write(' n = '); readln(n); i:=n; k:=0; while i>0 do begin i:=i div 10; k:=k+1; end; if n<=b then writeln('число n не превышает ',b) else writeln('число n больше ',b); if (k mod 2) = 0 then writeln('число цифр = ',k,' - четное') else writeln('число цифр ',k,' - нечетное');end.<br>