21.Дан двухмерный массив. Найти сумму элементов массива.

Алгоритм такой, здесь вложенный цикл.НачалоВвод массива A(n, m)Сумма S = 0Цикл по i от 1 до n    Цикл по k от 1 до m        S = S + A(i, j)    Конец цикла по kКонец цикла по iВывод SКонец

 const     n = 5;     m = 5; var   a : array [1..m,1..m] of integer;   s,i,j : integer; begin   //Формирование массива пропущено  s := 0;  for i := 1 to n do    for j := 1 to m do     s := s + a[i,j];        writeln (s); end.