Код:
var
a,b:string;
i,x:integer;
c,v:char;
z: set of char;
begin
//****1****
writeln('vvedite stroku');
readln(a);
x:=0;
i:=1;
repeat
begin
if (a[i]='5') then x:=1;
if (x=1) and (a[i]='+') then
begin
delete(a,i,1);
i:=i-1;
end;
i:=i+1;
end;
until i>Length(a);
writeln(a);
//****2****
writeln('vvedite stroku');
readln(a);
for i:=1 to Length(a) do
begin
x:=pos('link ',a);
if x<>0 then delete(a,x,5);
end;
writeln(a);
//****3****
writeln('vvedite stroku');
readln(a);
for x:=1 to Length(a) do
for i:=1 to Length(a) do
begin
if (a[i]='7') or (a[i]='9') then delete(a,i,1);
end;
writeln(a);
//****4****
writeln('vvedite stroku');
readln(a);
i:=1;
repeat
begin
c:=a[i];
a[i]:=a[i+1];
a[i+1]:=c;
i:=i+2;
end;
until i>=Length(a);
writeln(a);
//****5****
writeln('vvedite stroku');
readln(a);
i:=1;
repeat
begin
delete(a,i,1);
i:=i+1;
end;
until i>Length(a);
writeln(a);
//****6****
writeln('vvedite stroku');
readln(a);
i:=Length(a);
x:=0;
repeat
begin
if a[i]='*' then
begin
delete(a,i,1);
x:=1;
end;
i:=i-1;
end;
until x=1;
writeln(a);
//****7****
writeln('vvedite stroku');
readln(a);
x:=0;
for i:=1 to Length(a) do
begin
if (a[i]='/') and (x=0) then
begin
a:=copy(a,i+1,Length(a)-i+1);
x:=1;
end;
end;
writeln(a);
//****8****
writeln('vvedite stroku');
readln(a);
c:=a[1];
a[1]:=a[2];
a[2]:=c;
c:=a[3];
a[3]:=a[Length(a)];
for i:=4 to Length(a) do
begin
v:=a[i]; a[i]:=c; c:=v;
end;
writeln(a);
//****9****
writeln('vvedite stroku');
readln(a);
z:=['a','e','i','o','u','y'];
for x:=1 to Length(a) do
for i:=1 to Length(a) do
if a[i] in z then delete(a,i,1);
writeln(a);
//****10****
writeln('vvedite stroku');
readln(a);
b:=a;
c:=a[1]; v:=a[Length(a)];
for i:=1 to Length(a) do
b[Length(a)-i+1]:=a[i];
b[1]:=c; b[Length(a)]:=v;
writeln(b);
//****12****
writeln('vvedite stroku');
readln(a);
for i:=1 to Length(a) do
begin
if a[i]='(' then x:=i;
if a[i]=')' then delete (a,x+1,i-x-1);
end;
writeln(a);
//****13****
writeln('vvedite stroku');
readln(a);
i:=1;
repeat
begin
if a[i]='+' then
begin
insert('+',a,i);
i:=i+1;
end;
i:=i+1;
end;
until i>Length(a);
writeln(a);
readln;
end.