program coder; {var lib:array[1..242]of string; libbytes:array[1..242]of string; libnames:array[1..242]of string; ls:array[1..11]of string; lss:array[1..2]of string;} begin var kj:array of integer; var ki:array of integer; var h := new System.IO.StreamReader('input.txt',false, System.Text.Encoding.Default); var text:string; var n:integer; text:=h.ReadLine; n:=length(text); writeln(n); {for var i:=1 to 128 do begin for var j;=1 to 3 do begin} end.