uses crt;
var
s:string;
i,k:integer;
begin
k:=0;
writeln('tekst?');
readln(s);
for i:=length(s) downto 1 do
if s[i]=',' then begin
delete(s,i,1);
k:=k+1;
end;
writeln(s);
writeln(k);
readln;
end.
uses crt;
var
s:string;
i,k:integer;
begin
k:=0;
writeln('tekst?');
readln(s);
for i:=length(s) downto 1 do
if s[i]=',' then begin
delete(s,i,1);
k:=k+1;
end;
writeln(s);
writeln(k);
readln;
end.