program pokus2;
uses crt;
var a,b,z:integer;
        c:integer;
label 1;

begin
c:=1;
clrscr;
writeln;
write('Zadejte cislo: ');
read(a);

1:
b:=a div 10;
if b<>0 then begin c:=c+1;a:=b; goto 1 end;
writeln;
writeln('Pocet cifer je: ',c,'.');
delay(2000);
end.