Домашнее задание

Var i,n:integer;

begin 

writeln('Введите число');

readln(i);

n:=0;

ehi le i<>0 do begin 

i:=i div 10;

n:=n+1;

end;

writeln('Количество цифр',n);

end.