с решением примеров с использованием математических функций в MS Excel 2007.

Собирается-журналист опрашивает людей для статьи
обрабатывается-ученик решает задачу
упрощается-учитель объясняет материал 
создается-все тот же журналист придумывает статью
запоминается-парнеь запоминает номер телефона девушки
измеряется-программист рассчитывает сколько бит займет программа
копируется-ученик списывает у одноклассника
передается-две девушки обмениваются новостями
принимается-ученики слушают учителя на уроке
разрушается-придуманная выше указанным журналистом статья опровергается...
делится на части-человек разбирает сообщение в котором пропущены пробелы
ищется-человек ищет материал для доклада в интернете

Var
    s : String;
    i : Integer;
begin
    Writeln('Введите строку:');
    Readln(s);

    i:= 0;

    while pos(')', s) <> 0 do
    begin
        i := i + pos(')', s) - pos('(', s) + 1;
       delete(s, pos('(', s), pos(')', s) - pos('(', s) + 1);
    end;

    Writeln(s);
    Writeln(i);
    Readln;
end.

2)

var 
    s    : String; 
    i, e : Integer; 
    flag : Boolean;  
begin
    Writeln('Введите строку:');
    Readln(s);

    e := 0;
    flag := False;

    for i := 1 to Length(s) do
    begin
        if (s[i] = UpCase(s[i])) and ((s[i - 1] = ' ') or ( i = 1 )) then  flag := True;

        if flag then Write(s[i]);

        if (( s[i] = ' ' ) or ( i = Length(s))) and flag then
        begin
            flag := False;
            inc(e);
            Writeln;
        end;
    end;

    Writeln(e);
    Readln;
end.