program program2;

var

  i,j:integer;

  str1,str2:string;

begin

  str1:='pig-is-stupid';

  str2:='clever';

  str1[1]:='d'; str1[2]:='o';

  i:=8;

  for j:=1 to 6 do begin

      str1[i]:=str2[j];inc(i);

  end;

  writeln(str1);

end.

输出：_____________________。