Построить треугольник паскаля. с его вычислить 2^k c++

# include <iostream>

using namespace std;

int main() {

int k;                                    //ввод кол-ва строк в треугольннике

cout << "k = ";                            // И ввод степени 2-и

cin >> k;

int **a = new int *[k + 1];

for (int i = 0; i <= k; i++)

 a[i] = new int[k + 1];            //выделяем память под i-ую строку      

//заполняем массив

a[0][0] = 1;

a[1][0] = a[1][1] = 1;

for (int i = 2; i <= k; i++) {

 a[i][0] = 1;

 for (int j = 1; j < i; j++)

  a[i][j] = a[i - 1][j - 1] + a[i - 1][j];

 a[i][i] = 1;

}

//вычисляем 2^k

int S = 0;

for (int i = 0; i <= k; i++)

 if (i == k)  

  for (int j = 0; j <= i; j++)

   S += a[i][j];

cout << S;

 system("pause");

 return 0;

}

Задача 1:

var a:array[1..15] of integer;

i:integer;

begin

   for i:=1 to length(a) do begin

       a[i]:=random(-101)+50;

       writeln('a[',i,']=', a[i]);

   end;

end.

Задача 2:

var i:integer;

a:array[1..20] of integer;

b:array[1..20] of integer;

c:array[1..20] of integer;

begin

   for i:=1 to length(a) do begin

       a[i]:=random(-21)+10;

       b[i]:=random(-21)+10;

       c[i]:=a[i]+b[i];

       write(a[i]:3, ' ');

   end;

   writeln();

   for i:=1 to length(b) do write(b[i]:3, ' ');

   writeln();

   for i:=1 to length(c) do write(c[i]:3, ' ');

end.

Задача 3 (ряд Фибоначчи):

var i:integer;

a:array[1..20] of integer;

begin

   for i:=1 to length(a) do begin

       if i<=2 then a[i]:=1

       else begin

           a[i]:=a[i-2]+a[i-1];

       end;

       write(a[i], ' ');

   end;

end.

Var a: byte; b:integer;
Begin 
writeln('Введите день месяца');
readln(b);
writeln('Введите номер месяца');   
Readln(a);    
          Case a of        
1: writeln(b,' янавря');        
2: writeln(b,' февраля');      
3: writeln(b,' марта ');        
4: writeln(b,' апреля ');      
5: writeln(b,' мая');      
6: writeln(b,' июня ');        
7: writeln(b,' июля');       
8: writeln(b,' августа');     
9: writeln(b,' сентября');     
10: writeln(b,' октября');     
11: writeln(b,' ноября');       
12: writeln(b,' декабря');     
else writeln('Месяца №', a,'нет');   
end;       
end.