table = Import["/home/kacpert/Downloads/children_per_woman_total_fertility.csv"];

(*:>*)

years = table[[1 , 3;;]];

dataForPoland =Cases[table , {_ , "Poland" , rawData__}:>  {rawData}][[1]];

table//Dimensions

table//Length

years//Length

dataForPoland//Length

(*<= 1818 oraz >=2025*)

ListPlot[{years , dataForPoland}//Transpose]

Position[table[[1 , 3;;]] , 1817.]

Position[table[[1 , 3;;]] , 2025.]

ListPlot[{years[[19;;225]] , dataForPoland[[19;;225]]}//Transpose]

Cases[table , {_ , _  , __  ,1817.,rawData__, 2025., __}:>{rawData}]

Position[table[[1 , 3;;]] , 1976.]

chpm = table[[2;; , 179]];

chpm//MinMax

Count[table[[2;; , 179]] , x_/;x>7.]

Hold[FullForm[Count[table[[2;; , 179]] , x_/;x>7.]]]

ListPlot[
Table[
{
chpw,
Count[table[[2;; , 179]] , x_/;x>chpw]
} , {chpw , 0 , 10 , 0.1}],
AxesLabel->{"x" ,"# of countries with children per woman > x"},
PlotLabel->"DATA FROM GAPMINDER.ORG"
]

a = Cases[table[[2;;]] , {_ , c_ , xs__}/;{xs}[[177]]>5 :>c]

listOfCountries = {};

hasCHPWgt5[{_ , c_ , xs__}/;{xs}[[177]]>5]:=AppendTo[listOfCountries , c];

hasCHPWgt5/@table[[2;;]];

listOfCountries//Sort

a//Sort

% == %%

hasCHPWgt5[table[[13]]]

Position[table , {_ , "Burundi" , __}]

f/@{1 , 2 , 3 , 4 ,5}

list = {};

AppendTo[list , 321]

list

Riffle[{1 , 3 , 5 , 7} , {2 , 4 , 6 , 8}]

Partition[Riffle[{1 , 3 , 5 , 7} , {2 , 4 , 6 , 8}] , 2]

{{1 , 3 , 5 , 7} , {2 , 4 , 6 , 8}}//Transpose

Table[g[i , j] , {i , 1 , 3} , {j , 1 , 2}]

Array[g , {3 , 2}]

f[x_]:= Sin[(x^2) + Cos[2.](π/x)];

f[2.]

fM[x_]:=Module[{a , b},
a = (x^2);
b = Cos[2.](π/x);
Sin[a + b]
];

fM[2.]

a

Hold[FullForm[Module[{a , b},
a = (x^2);
b = Cos[2.](π/x);
Sin[a + b]
]]]

Hold[FullForm[a = (x^2);
b = Cos[2.](π/x);
Sin[a + b]]]

x = 2.;
a = (x^2);
b = Cos[2.](π/x);
Sin[a + b]

a

?For

For[
i = 0 , i< 22 , i = i + 1 , 
Print[i]
]

Do[Print[i] , {i , 0 , 21}]