Почему-то есть подозрение, что чего-то в условии не хватает... Ежели что - пишите в личку
Начиная от единицы, y будет удваиваться, пока у меньше 100. Т.е. у будет идти по степеням двойки, начиная с нулевой. Ближайшая меньшая к ста степень двойки - шестая, она дает значение 64 и для нее цикл выполнится последний раз, давая следующую, седьмую степень двойки, равную 128.
Ответ: 128
<em>// PascalABC.NET 3.2, сборка 1439 от 09.05.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
a.Transform(x->x>0?x*4:x*7); a.Println
end.
<u>Пример</u>
n= 13
-9 23 -29 -36 -10 -20 9 28 26 34 -41 -2 45
-63 92 -203 -252 -70 -140 36 112 104 136 -287 -14 180