1)

program fantscrin;

var s:string; i, plus, minus:integer;

begin

   write('Введите строку:'); readln(s);

   plus:= 0;

   minus:= 0;

   for i:=1 to length(s) do

   begin

       if s[i] = '+' then plus := plus + 1;

       if s[i] = '-' then minus := minus + 1;

   end;

   writeln;

   if plus > minus then for i:=1 to plus do

                           write('+')

                   else if plus < minus then for i:=1 to minus do

                                               write('-')

                                        else write('Кол-во знаков одинаковое!');

end.

2)

program fantscrin;

var y,x,b,e:real; i:integer;

begin

   write('Введите число b:'); readln(b);

   e:= 2.7;

   x:= 0;

   writeln;

   writeln('   y    |   x   ');

   writeln('-----------------');

   while x <= 10 do

   begin

       if x < 3 then

                begin

                    y:= Exp(x * Ln(e)) + 1 / (x + 1);

                    writeln(y:6:5, ' | ', x:6:5)

                end;

       if x = 3 then

                begin

                    y:= Sin(x) + sqrt(x);

                    writeln(y:6:5, ' | ', x:6:5);

                end;

       if x > 3 then

                begin

                    y:= Cos(x) + Abs(b);

                    writeln(y:6:5, ' | ', x:6:5);

                end;

       x:= x + 0.5;

   end;

end.