# 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, b: array of integer;
n: integer;
procedure parse(var a, b: array of integer; n: integer);
begin
var sum_p: integer := 0;
var sum_m: integer := 0;
var data: integer := 0;
setlength(a, n); setlength(b, n);
var i:integer;
for i := low(a) to high(a) do
begin
readln(a[i]); readln(b[i]);
sum_p += 3a[i];//kov vo zabitix myachei
sum_m += b[i];//kol vo promaxov
if b[i] > 1 then inc(data);
end;
writeln(sum_p - sum_m);
writeln(data);
end;
begin
readln(n);
parse(a, b, n);
end.
//#2
var
a: array of integer;
n: integer;
procedure parse(var a: array of integer; n: integer);
var
i: integer;
begin
var data: integer := 0;
setlength(a, n);
var sum: integer := 0;
for i := low(a) to high(a) do begin read(a[i]); sum += a[i]; if a[i] < 0 then inc(data); end;
writeln(sum / (high(a) + 1):0:4);
write(data);
end;
begin
readln(n);
parse(a, n);
end.