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

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