Помогите пожалуйста, как это сделать в паскале

Question

Сгенерировать случайное целое число < 32000 и определить его разрядность 
(c:=random(32000); )

Юлия Мишустина · Accepted Answer

Вот с функцией program asd; var c: integer; function stp (c: integer): integer; begin if c<10 then writeln ('Число 1-разрядное'); if (c>9) and (c<100) then writeln ('Число 2-разрядное'); if (c>99) and (c<1000) then writeln ('Число 3-разрядное'); if (c>999) and (c<10000) then writeln ('Число 4-разрядное'); if (c>9999) and (c<32001) then writeln ('Число 5-разрядное'); end; begin c:=random(32000); stp (c); writeln (c); end.