{ Найти сумму элементов прямоугольной таблицы размером [n:m] }

uses crt;

var 
a:array [1..10,1..10] 
of longint;
    i,j,n,m,s : longint;
 begin
   clrscr;
   write('кол-во строк : ');
   readln(m);
   write('кол-во столбцов : ');
   readln(n);
   for i:=1 to m do
   for j:=1 to n do
   begin
     write('a[',i,',',i,']=');
	 readln(a[i,j]);
   end;
   for i:=1 to m do
   for j:=1 to n do 
   s:=s+a[i,j];
   write('Сумма:',s);
   readln;
 end.