уменьшение числа в 10 раз end; if i> k then . writeln('В числе ', k, ' цифр, в разряде ', i, ' нет цифр')