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