40 БАЛЛОВ, СРОООООЧНООО. ПОМОГИТЕ ПОЖАЛУЙСТА
1.Выведите на экран кубы n первых натуральных чисел;
2.Составьте программу, которая вычисляет сумму всех четных, двузначных чисел;
3.Дано натуральное число n. Вычислите 3n;
4Дано натуральное число n. Получить наименьшее число вида 2r, превосходящее n.

можешь помочь пожалуйста со вторым вопросом?))

1.var n,i:integer;beginreadln(n);for i:=1 to n do writeln(i,' ',i*i*i);end.Пример:41 12 83 274 642.var s,i:integer;begins:=0;for i:=10 to 99 do if i mod 2=0 then s:=s+i;writeln('s = ',s);end.Результат:s = 24303.var n:integer;beginreadln(n);writeln('3 * ',n,' = ',3*n);end.Пример:53 * 5 = 154.var n:integer;beginreadln(n);writeln(n+1+(n+1) mod 2);end.Пример:810