program dz3_mod;

const
  MAX_BR_VR=10;
  MAX_BR_KOL=10;
type
  matrica=array[1..MAX_BR_VR,1..MAX_BR_KOL] of integer;
var
  m1,m2:matrica;
  v, k, n, s: integer;
  skup:set of 0..255;
procedure unos(var p1,p2:matrica; v, k:integer);
var j,i:integer;
begin

 writeln('PRVA MATRICA:');
 for i := 1 to v do
 for j := 1 to k do
 begin
  write('Element[',i,',',j,']: ');
  readln(p1[i,j])
 end;

 writeln('DRUGA MATRICA:');
 for i := 1 to v do
 for j := 1 to k do
 begin
  write('Element[',i,',',j,']: ');
  readln(p2[i,j])
 end;

end;
procedure ispis(a, b:integer);
begin
 writeln('Najveci skalarni proizvod ima vrsta ',a,' i on iznosi ',b);
end;
procedure MaxProiz(p1,p2:matrica;v,k:integer);
var
  i,j,max, b, maxv:integer;
  skup:set of 0..255;
begin

 writeln('UNOS SKUPA:');
  n:=0;
  writeln('Unesite elemente niza. Van opsega [0,255] za kraj unosa');
  repeat
  begin
   readln(s);
   if(s>0)AND(s<=v)then
   begin
    skup:=skup+[s];
    n:=n+1;
   end;
  end;
  until ((s<0)OR(s>255));

 if not(n=0) then
 begin
 i:=1;
 max:=-65000;
 maxv:=0;
 for j:=1 to k do
  max:=max+p1[i,j]*p2[i,j];
 for i := 1 to v do
 begin
  b:=0;
  for j := 1 to k do
  begin
   b:=b+p1[i,j]*p2[i,j];
  end;
  if((max<b) AND (i in skup)) then
  begin
   max:=b;
   maxv:=i;
  end;
 end;
 ispis(maxv,max);
 end
 else
 writeln('Skup ne sadrzi odgovarajuce vrste matrica!');
end;

begin
  writeln('Broj vrsta?');readln(v);
  writeln('Broj kolona?');readln(k);
  while((v>0)AND(k>0)AND(v<=MAX_BR_VR)AND(k<=MAX_BR_KOL))do
  begin
  unos(m1,m2,v,k);
   MaxProiz(m1,m2,v,k);
   writeln();
   writeln('Broj vrsta?');readln(v);
   writeln('Broj kolona?');readln(k);
  end;
end.