bai 1
var s:string;
begin
assign(input,'xaukitu.inp');reset(input);
assign(output,'xaukitu.out');rewrite(output);
readln(s);
while pos(#32#32,s)<>0 do
delete(s,pos(#32#32,s),1);
write(s);
end.
bai 2
var finp,f1,f2:text;
s:string;
dem:byte;
begin
assign(finp,'bai2.inp');reset(finp);
assign(f1,'bai2_a.out');rewrite(f1);
assign(f2,'bai2_b.out');rewrite(f2);
readln(finp,s);dem:=0;
while pos('A',s)<>0 do begin
write(f1,pos('A',s),' ');
delete(s,pos('A',s),1);
dem:=dem+1;
end;
write(f2,dem);
end.
