Найдите сумму sin(1)+sin(2)+) и число слагаемых до первого отрицательного слагаемого.

Var x: real;     i, m: integer; begin       readln(m);       for i : = 1 to m do           if (sin(i) > = 0) then               x : = x + sin(i)           else               break;       writeln(x); end.должно быть, так)

                          плотник      слесарь    токарь плотников                 -                -              + слесарев                  +                -              - токарев                      -              +              -

Наверное нам надо все  таки определить кто из нас главный.- подумав  сказал процессор. ну что ж, я не против продолжили клавиатура и   память. я думаю что самым главным органом является я- перебила клавиатура и начала быстро шурша клавишами кричать во весь голос. как вы сможете вводить информацию если не будет меня? да вы даже свои имена не напишете.. по этому я должна быть главной.     погоди ка клава перебил процессор а ведь я тоже не дурак. ну введешь информацию а кто будет обрабатывать её? кто будет всё это рассчитывать, все эти биты байты мегабайты? по этому я тут подумал и вычислил себя самым главным.     коллега дайте и мне сказать своё слово - сказала память. как мне не изменяет моя терабайтная память ваши расчеты и ваши вводы информации без меня ровно слова на ветер. да, да. как вы будете помнить завтра  то что вы сейчас обсуждаете сегодня. я же ваш мемори. и по этому. безусловно я являюсь самым главным органом.     они спорили долго долго пока компьютер совсем не завис окончательно.