Имеется некоторая последователь­ность симво­лов. Образовать новую последо­вательность,...

Question

Имеется
некоторая последователь­ность симво­лов. Образовать новую последо­вательность,
включив в нее символы исходной, кроме запятых. (использовать склейку «+»)(не использовать pos, delete,
copy…)

Answer 1

Var n, s:string;
i:byte;
begin
read(s);
n:='';
for i:=1 to length(s) do
if s[i]<>',' then n:=n+s[i];
write(n);
end.