Составить блок-схему нахождения количества цифр в натуральном числе.

// Блок схема и листинг программы в приложениях.PROGRAM SUM_ZNAK;var n, i, sum: integer;begin Read(n); sum:=0; while (n > 0) do begin sum := sum+1; n := n div 10; end; Writeln(sum);end.