Помогите решить!!! Желательно напишите ** листке

Question

Помогите решить!!!
Желательно напишите на листке

---

Answer 1

Var n,k:integer;
Label 1,2;
Begin
Writeln(' Введите значение переменной n');
Readln(n);
k:=0;
1:If (n>0) then
Begin
n:=n/10;
k:=k+1;
goto 1;
End
Else
goto 2;
2:writeln(k);
End.