Var a:array[1..4,1..6] of integer; i,j,p,n:integer; begin p:=1; n:=1; for i:=1 to 4 do for j:=1 to 6 do read(a[i,j]); for j:=1 to 6 do p*=a[3,j]; writeln(p); end.
спасибо большоееее)))