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

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.