задача А

proc_func_problemA.pas

{есть алгоритм:}

const
	N = 20;
	
var
	n, i, j: integer;
	a: array[1..N][1..N] of integer;
	s: longint;
	
begin

	writeln('enter size of matrix 1 <= n <= ', N, ':');
	readln(n);
	
	for i:= 1 to n do
		for j:= 1 to n do begin
		
			writeln('enter a[', i, '][', j, ']');
			readln(a[i][j]);
		
		end;
		
	s:= 0;
	for i:= 1 to n do
		for j:= 1 to n do
			s:= s + a[i][j];
			
	writeln('matrix sum is ', s);

end.

{Требуется при помощи рекурсии избавиться от циклов.}