Var s: String; I: Longint; Begin ReadLn (s) ; While Pos (#32#32, s) <>0 do Delete (s, Pos (#32#32, s), 1) ; If s[1] =#32 then Delete (s, 1,...
Dãn cách tên bằng dấu phẩy.
