Опишите на языке программирования

var i, summ: Integer; m: array [1… 30] of Integer; begin summ: =0; for i: =1 to 30 do begin Write ('m[', i, ']='); Readln (m[i]); end; for i: =1 to 30 do summ: =summ+m[i]; Writeln (Summ); end.