x=[80 70 85 65 70 75 90];
[m,s]=marks(x)

[s,x]=squares(1000);
s

sum([1:1000].^2)

k=prog(1,2,40*1000*5*400*10^9)
