Даны 4 натуральных числа. Определить количество цифр. написать программу с помощью функции или процедуры — Pascal(Паскаль)

function Kol(a:longint):byte;
var k:byte;
begin
k:=0;
while a>0 do
 begin
  a:=a div 10;
  k:=k+1;
 end;
Kol:=k;
end;

var
 a:longint;
begin
 readln(a);
 writeln(kol(a));
end.