Составьте программу которая позволяет удалить все сочетания ба из строки S

Question

Составьте программу которая позволяет удалить все сочетания ба из строки S

Answer 1

var s:string;

begin

read(s);

while pos('ба',s)>0 do

delete(s,pos('ба',s),2);

write(s)

end.