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.