program Gimtadienis;
type
duomenys = record
pavadinimas : string[15];
produktai : array [1..10] of integer;
kaina : integer;
end;

var patiekalai :array [1..12] of duomenys;
  n,p,viso,i,ii:integer;
  kainos:array [1..10] of integer;
  tikrinimas:boolean;

procedure skaitymas ();
var fd:text;
begin
  assign(fd, 'U2.txt');
  reset(fd);
  read(fd,n,p);
if (n>=1) AND (n<=10) AND (p<=12) AND (p>=1) then
  begin
  for i:=1 to n do
  read(fd,kainos[i]);
  for i:=1 to p do
  begin
    readln(fd);
    read(fd, patiekalai[i].pavadinimas);
    for ii:=1 to n do
    read(fd, patiekalai[i].produktai[ii]);
  end;
  end
else tikrinimas:=false;
  close(fd);
end;

procedure skaiciavimas();
begin
  for i:=1 to p do
   begin
   for ii:=1 to n do
   begin
   patiekalai[i].kaina:=patiekalai[i].kaina + patiekalai[i].produktai[ii]*kainos[ii];
   end;
   viso:=viso+patiekalai[i].kaina;
   end;
end;

procedure rezultatas();
var fr:text;
begin
  assign(fr, 'U2rez.txt');
   rewrite(fr);
   if tikrinimas then
     begin
   for i:=1 to p do
   writeln(fr,patiekalai[i].pavadinimas,' ',patiekalai[i].kaina);
   writeln(fr,viso div 100,' ',viso mod 100);
     end
else writeln(fr,'Blogas duomenu failas');
   close(fr);
end;

begin
 tikrinimas:= true;
 skaitymas();
 if tikrinimas then
 skaiciavimas();
 rezultatas();
end.