Составьте программу вывода на экран всех степеней числа 2, меньших 100.pascalabc

yo no puedo escribir en ruso.

Pascalabc.net 3.4.0, сборка 1675 от 12.06.2018 внимание! если программа не работает, обновите версию! procedure println(self: array of real); extensionmethod; begin   self.batch(5).foreach(s->           begin foreach var p in s do write(p: 15: 10); writeln end);   writeln(min(15*(self.count div 2),38)*'- ') end; begin   var m: =arrgen(readinteger('n='),i-> cos(i),1); m.println;   var (a,b): =readreal2('введите границы a b: ');   writeln('число элементов на интервале [',a,',',b,'] равно ',       m.where(t-> t.between(a,);   write('сумма элементов, расположенных после максимального, равна ');   var imax: =m.indexmax;   (m? [imax+1: ].sum).println;   writeln('элементы, по убыванию модулей');   m: =m.orderbydescending(t-> abs(; m.println; end.

Объяснение:

text = "Программа! "  # Переменная text Содержит строку "Программа! "

print(text [0:10])  # Индексирование каждого символа строки. [:] - Это срез. [0:10] - Вывести 10 символов - Целая строка, но только без пробела в конце строки, тк заданная команда выводит все символы строки (Если было бы [0:11] - то пробел конечно же был бы включен)

print(text [0:4])  # Вывести символы от индекса 0 - Это символ П, до индекса 4 - Это символ Р. Результат: Прог

print(text [-2])  # Отрицательное значение, обычно применяется для того, чтобы взять что-либо с конца строки, списка и т.п..

print(text [::3])  # Вывести каждый символ с чередованием 3 символа. Так скажем... Перешагнуть 2 символа, и уже 3й распечатать