// PascalABC.NET
begin
var a := ReadString.ToWords(',','.',' ');
Println('Самое длинное слово:', a.MaxBy(p -> p.Length));
Print('Всего слов:', a.Length)
end.
