ПАСКАЛЬ! Дан двумерный массив mxn целых чисел. Найти сумму и произведение…

Vara: array [1… 100,1… 100] of longint; i,j,p,s: longint; beginfor i: =1 to 10 do for j: =1 to 10 do read (a[i,j]); for i: =1 to 10 do for j: =1 to 10 do begin p: =p*a[i,j]; s: =s+a[i,j]; end; writeln (p); {произведение}writeln (s); {сумма}end.