Язык программирования - паскаль ввести целое число и определить количество цифр в нем. так же дан алгоритм: отсекаем последнюю цифру, при этом увеличиваем счетчик на единицу. надо остановиться, пока n< > 0. буду (:

Var
 n,i : integer;
begin
  readln(n);
  i := 0;
  while(n <> 0) do
  begin
     n := n div 10;
     i := i+1;
  end;
  Writeln(i);
end.