Ответ:

program z1;

var n1,n2:integer;

s1,s2,s:string;

begin

readln (n1,n2);

readln (s1);

readln (s2);

s:=copy (s1,1,n1) + copy (s2,length(s2)-n2+1,length(s2));

write (s)

end.

Объяснение:

Смотри картинку