40 , . 1.выведите на экран кубы n первых натуральных чисел; 2.составьте программу, которая вычисляет сумму всех четных, двузначных чисел; 3.дано натуральное число n. вычислите 3n; 4дано натуральное число n. получить наименьшее число вида 2r, превосходящее n.

1.
var n,i:integer;
begin
readln(n);
for i:=1 to n do writeln(i,' ',i*i*i);
end.

Пример:
4
1 1
2 8
3 27
4 64

2.
var s,i:integer;
begin
s:=0;
for i:=10 to 99 do
 if i mod 2=0 then s:=s+i;
writeln('s = ',s);
end.

Результат:
s = 2430

3.
var n:integer;
begin
readln(n);
writeln('3 * ',n,' = ',3*n);
end.

Пример:
5
3 * 5 = 15

4.
var n:integer;
begin
readln(n);
writeln(n+1+(n+1) mod 2);
end.

Пример:
8
10