VAR
 S:String;
BEGIN
 WriteLn('Enter the phrase:');
 ReadLn(S);
 WriteLn('N= ',Length(S));
 ReadLn;
END.