Матрица 4х6. Произведение в строке №3 пожалуйста СРОЧНО!!!!!!!!!!!!

var a:array[1..4,1..6] of integer;i,j,p,n:integer;beginp:=1;n:=1;for i:=1 to 4 do  for j:=1 to 6 do  read(a[i,j]);for j:=1 to 6 dop*=a[3,j];writeln(p);end.