for j:=2 to Nmes do begin SredSumm:=0; for i:=1 to Nceh do
for j := 2 to Nmes do
for j := 1 to Nmes do