program test;
var
i : integer;
st : string;
begin
Writeln ('Enter Some String');
Readln (st);
i := Length(st);
Writeln ('Length = ',i);
end.