p = Table[{RandomReal[], RandomReal[]}, {i, 1, 100}];
plot = ListPlot[p, Frame->True, AspectRatio->1, PlotRange->{{0,1}, {0,1}}]

Export["~/Documents/ph3/Labs/mathematica/week8/Monte-Carlo.pdf", plot, "PDF"]

N[4*(100-22)/100]

N[0.02/3.14]

N[4*Sqrt[(100-22)]/100]