viznachita number n k_lk_st figures at tsyy chisl_paskal is given to the naturalena

var a, k: int64; begin k: = 1; writeln (Vvedite chislo); read(a); while a> 0 do begin a: = mod 10; k: = k+1; end; write (V chisle, k, tsifr); end.