module test7;

import system;

var
	s : array[64] of char;
	len : integer;

procedure StringLength( s : array of char ) : integer;
var
	i : integer;
	len : integer;

begin
	len := length( s );
	i := 0;
	while ( i < len ) and ( s[i] <> char( 0 ) ) do
		i := i + 1
	end;
	return i
end

begin
	system.readline( s );
	len := StringLength( s );
	system.writestring( "String: " );
	system.writeline( s );
	system.writestring( "Length: " );
	system.writeinteger( len );
	system.writeline( "" )
end