mi dite dove stra cavolo sta l'errore in questo codice???????????
non riesco a trovarlo e devo assolutamente consegnare l'esercizio !!!!!!
program matrici;
const c=3;
r=2;
type matr= array [1..r,1..c] of integer;
var i,j:integer;
m:matr;
function prodotto(m:matr):boolean;
var i,j,prod:integer;
ris:boolean;
begin
i:=1;
j:=2;
prod:=1;
ris:=false;
while (i<=r) and not ris do
begin
ris:=true;
while(j<=c) and not ris do
begin
prod:=prod*m[i,j-1];
if m[i,j]<>prod then ris:=false;
j:=j+1;
end;
i:=i+1;
end;
prodotto:=ris;
if prodotto(m) then writeln('si')
else writeln('no');
end;
(*main*)
begin
for i:= 1 to r do
for j:= 1 to c do begin
writeln('inserisci il num di posto ' ,i,',' , j);
readln(m[i,j]);
end;
for i:= 1 to r do
for j:= 1 to c do
writeln (m[i,j]);
readln;
prodotto(m); readln;
end.