Cоставьте программу заменяющую в заданном тексте все буквосочетания "да" на "нет".

Var
  a:longint;
  s:string;
begin
 read(s);
 while pos('да',s)>0 do
   begin
   a:=pos('да',s);
   delete(s,a,2);
   insert('нет',s,a)
  end;
writeln(s)
end.