function pocetkostek=pyramida(H)
%Pyramida je stavìna z kostek a bez dutin.
%Výška pyramidy je H.
%Základna pyramidy je ètverec o stranì H.
%Po zadání H vrací potøebný poèet kostek.
tic
pocetkostek=0;

for i=1:H
    pocetkostek=pocetkostek+i^2;
%    disp('patro: '); disp(i);
%    disp('prirustek: '); disp(i^2);
%    disp('pocetkostek: '); disp(pocetkostek);
end
cas=toc;
disp('Cas vypoctu: '); disp(cas);

tic
jinak=(1/6)*(H*(H+1)*(2*H+1));
cas2=toc;
disp('Cas druheho vypoctu: '); disp(cas2);
end