Перевести в паскаль (( цикл пока алг цифры; цель n,k нач ввод (n); k : =0 пока n> =1 нц n: =n div 10; k: =k+1 kц вывод кон

//алг цифры;
var N,k:integer; // цел N,K
begin // Нач
  Read(N); // ввод (N);
  k:=0; // k:=0
  while N>=1 do // Пока N>=1
    begin // нц
    N:=N div 10; // N:=N div 10;
    k:=k+1; // k:=k+1
    end; // kц
  Writeln(k)  // Вывод k
end. // кон