begin
Append(f1);
m:=0;
writeln (f1);
for i:=1 to p1 do
begin
for j:=1 to p4 do
begin
for k:=1 to p4 do 
begin
if (a[i, k] = '1') and ( b[k, j]= '1') then
begin
if (< > p2) and (m< >0) then write (f1,' + ');
Write (f1, 'a', i, k, 'x', 'b', k, j);
m:=m+1;
 end;
 end;
 writeln (f1);
 m:=0;
 end;
 end;