СРОЧНО!!!!! Язык программирования - Паскаль Ввести целое число и определить количество...

Question

СРОЧНО!!!!!
Язык программирования - Паскаль
Ввести целое число и определить количество цифр в нем.
Так же дан алгоритм: Отсекаем последнюю цифру, при этом увеличиваем счетчик на единицу. Надо остановиться, пока n<>0.
Буду очень благодарна(:

Answer 1

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.