uses SysUtils; var A : array [1..10] of Char; begin writeln (Trim (A)); end.