Запишите на языке паскаль программы решения , используйте оператор while : 1) составьте алгоритм для определения количества цифр в записи произвольного натурального числа

Var a,n: integer;
begin
Writeln('Введиье число');
Readln(a);
while a div 10 <> 0 do
begin
a:=a div 10;
n:=n+1;
end;
Writeln('В данном числе ', n+1, ' цифр(ы,а)');
end.