// PascalABC.NET
begin
var s1 := ReadlnString;
var s2 := s1.Replace(' ', '');
s2 += if s1.Length > s2.Length then 'YES' else 'NO';
WriteAllText('MyFile.txt', s2)
end.
