1.Определите сумму всех элементов последовательности, завершающейся числом 0.

входные данные
программа получает на вход последовательность целых чисел
выходные данные
вывести ответ на задачу

2. Дано натуральное число N. Выведие слово YES, если число N является точной степенью двойки, или слово NO в противном случае.

Операцией возведения в степень пользоваться нельзя!

входные данные
вводится натуральное число N
выходные данные
вывести ответ на задачу

3. Последовательность состоит из натуральных чисел и завершается числом 0. Определите, сколько элементов этой последовательности больше предыдущего элемента.

входные данные
вводится последовательность из натуральных чисел (гарантируется, что количество чисел в последовательности больше 2)
выходные данные
вывести ответ на задачу

2)
USES CRT;
VAR A:array[0..200] of integer;   
       i,max,s:integer;
BEGIN
CLRSCR;
Randomize;   
   Writeln('Дан массив:'); 
   for i:=0 to 200 do     
      begin         
         A[i]:=-100+random(150);         
         Write(A[i],'   ');     
      end;

       s:=0;   
       max:=A[0];

       for i:=0 to 200 do     
          begin         
             if A[i] > max then max:=A[i];         
             if A[i]>=0 then s:=s+1;     
          end;   
       
        Writeln;   
        Writeln('Максимальный элемент массива  = ', max);   
        Writeln('Кол-во положительных элементов = ',s);
READLN;
END.

•Приняты (младшая группа) •Илья Вишневский 47 •Андрей Шереметьев 93 •Василий Шульц 53 •Егор Золотарев 64 •Владимир Ефимов 76 •Георгий Троицкий 25 •Владислав Сулимов 36 •Леонид Пономарёв 73 •Семён Туманов 91 •Филипп Мухин 49 •Роман Беляев 16 •Марк Фролов 84 Младшая группа «Акулы»   пн ср сб      14:00-16:30
Средняя группа   «Ягуары»  вт чт пт       15:00-17:45
Старшая группа   «Львы»     пн пт вс       15:00-17:15
•Приняты (младшая группа)
•Илья Вишневский 47
•Андрей Шереметьев 93
•Василий Шульц 53
•Егор Золотарев 64
•Владимир Ефимов 76
•Георгий Троицкий 25
•Владислав Сулимов 36
•Леонид Пономарёв 73
•Семён Туманов 91
•Филипп Мухин 49
•Роман Беляев 16
•Марк Фролов 84
•Приняты (средняя группа)
•Святослав Поляков 34
•Денис Никифоров 88
•Дмитрий Щербаков 17
•Сергей Жуков 23
•Артем Игнатьев 98
•Никита Трофимов 26
•Егор Карпов 9
•Александр Назаров 3
•Данил Воронин 11
•Владимир Титов 2
•Максим Абрамов 61
•Артур Соболев 13
Приняты (старшая группа)
Захар Прокофьев 53
Евгений Шмидт 94
Павел Фомин 82
Юрий Гаврилов 42
Пётр Киселёв 47