1)дана строка S определить и напечатать сколько символов *2)дана строка S вместо каждого символа * записать символы 0 Напечатать полученную строку3)дана строка S получить и напечатать строку Т образуемую путем прочтения строки S начиная с ее конца4)дана строка S в которой есть одна открывающаяся скобку и одна закрывающаяся скобку Удалить все символы между этими скобками

1)
var s:string;i,k:integer;
begin
read(s);
for i:=1 to length(s) do
if s[i]=* then k:=k+1;
writeln(k);
end.

2)
var s:string;i:integer;
begin
read(s);
for i:=1 to length(s) do
if s[i]=* then begin delete(s,i,1);insert(0,s,i);end;
writeln(s);
end.

3)
var s,s1:string;i:integer;
begin
read(s);
for i:=length(s) downto 1 do
s1:=s1+s[i];
writeln(s1);
end.

4)
var s:string;i,p1,p2:integer;
begin
read(s);
for i:=1 to length(s) do begin
if s[i]=( then p1:=i;
if s[i]=) then p2:=i-p1;
end;
delete(s,p1,p2);
writeln(s);
end.