PascalABC.NET1)var a:String = 'лекарство'; b,c,d:String;beginb:= copy(a,1,2);c:= copy(a,7,1)+copy(a,9,1);d:= copy(a,8,2);WriteLn(b+c);WriteLn(b+d);end.2)var a:String = 'нитка';beginWriteLn(a);a:= a.Replace('ит','ер');WriteLn(a);a:= a.Replace('е','о');WriteLn(a);a:= a.Replace('нор','кри');WriteLn(a);a:= a.Replace('рик','ниг');WriteLn(a);a:= a.Replace('кни','пур');WriteLn(a);end.3)var a,b,c,d,e,f:String;begina:='кормила';b:='ку';c:='ка';d:='ш';e:='он';f:=' ';WriteLn(b+b+d+c+f+a+f+b+b+d+e+c);end.