program Laboratl;
uses Crt;
Var f,f1:text;
i,j,i1,j1,p1,p2,p3,p4,y,k,m,t:integer;
d:Char;
   a:array  [1..8,1..8]  of string  [1];
   b:array  [1..8,1..8]  of string  [1];
   c:array  [1..8,1..8]  of string; 
begin
clrscr;
p1:=0;p2:=0;p3:=0;p4:=0;
Assign (f, 'C:\1.txt');
Assign (f1,'C:\11');
Reset(f);
while not Eof(f) do
begin
readln(f,d);
if (d=' ') then break;
p1:=p1+1;
end;
Reset(f);
while not Eoln(f) do 
begin 
Read(f,d); 
p2:=p2+1;
end;
Reset(f);
for i:=1 to p1 do 
begin
for j:=1 to p2 do 
begin
Read(f,a[i,j]); 
end;
ReadLn(f); 
end;
Reset(f);
while not Eof(f) do 
begin
ReadLn(f,d);
if (d=' ') then 
begin
while not EoF(f) do 
begin
Readln(f,d); if (d=' ') then break;
p3:=p3+1; end; end; end;
Reset(f);
while not Eof(f) do 
begin
ReadLn(f,d); if (d=' ') then begin
while not Eoln(f) do begin Read(f,d); p4:=p4+1; end; end; end;
Reset(f);
while not Eof(f) do begin
ReadLn(f,d); if (d=' ') then begin
for i:=1 to p3 do begin
for j:=1 to p4 do begin
Read(f,b[i,j]); end;
ReadLn(f);
end;
end;
end;
Close(f);
Writeln('Zadani  matrici   takih  razmerov');
Writeln;
WriteLn('Matriza A  (',p1,'x',p2,')  ==>');
writeLn;
for i:=1 to p1 do
begin
for j:=1 to p2 do
begin
Writeln(a[i,j]:3);
end;
writeLn;
end;
WriteLn('Matriza B (',p3,'x',p4,')  ==>');
writeLn;
for i:=1 to p3 do
begin
for j:=1 to p4 do
begin
writeln(b[i,j] :3);
end;
WriteLn;
end;
y:=0;
for i :=1 to p1 do
begin
for j :=1 to p2 do
begin
if (a[i,j] = '0')  then
y:=y+1;
end;
if (y=p2)  then
begin
p1:=p1-1;
for i1:=1  to p1 do
begin
for j:=1 to p2 do
a[i1,j1]:=a[i1+1,j1];
end;
end;
y:=0;
end;
y:=0;
for i:=1 to p2 do
begin
for j:=1 to p1 do
begin
if (a[j ,i] = '0')  then
y:=y+1;
end;
if (y=p1)  then
begin
p2:=p2-1;
for i1:=1 to p1 do
begin
for j1:=1 to p2 do
a[i1,j1]:=a[i1,j1+1];
end;
end;
y:=0;
end;
y:=0;
for i:=1 to p3 do
begin
for j:=1 to p4 do
begin
if (b[i,j]='0')  then
y:=y+1;
end;
if (y=p4)  then
begin
P3:=p3-1;
for i1:=i  to p3 do
begin
for j1:=1 to p4 do
b[i1,j1]:=b[i1+1,j1];
end;
end;
y:=0;
end;
y:=0;
for i:=1 to p4 do
begin
for j:=1 to p3 do
begin
if (a[j,i]='0')  then
y:=y+1;
end;
if (y=p3)  then
begin
p4:=p4-1;
for i1:=1 to p3 do
begin
for j1:=i to p4 do
b[i1,j1]:=b[i1,j1+1];
end;
end;
y:=0;
ReWrite(f1);
for i:=1 to p1 do
begin
for j:=1 to p2 do
begin
if (a[i,j] = '1')  then
Write(f1,'a',i,j,'     ')
else Write(f1, '   ' ,a[i, j] , '        ') ;
end;
WriteLn(f1);
end;
WriteLn(f1,'   ');
for i:=1 to p3 do
begin
for j:=1 to p4 do
begin
if (b[i,j] = '1')  then
Write(f1, 'b' ,i,j, '     ')
else Write(f1,'   ',b[i,j],'       ');
end;
WriteLn(f1);
end;
writeln;
readln;
WriteLn;
WriteLn('Posle ydaleniya nylevih ctrok i  stolbcov,matrici  stali  takih');
writeln('razmerov:');
WriteLn;
WriteLn('Matrica A razmerom ==>',p1,'x',p2);
WriteLn;
for i:=1 to p1 do
begin
for j:=1 to p2 do
begin
if (a[i,j]='1')  then
Write('a',i,j,'     ')
else Write('   ',a[i,j],'        ');
end;
WriteLn;
end;
WriteLn;
WriteLn('Matrica B  razmerom ==>', p3 ,'x',p4) ;
WriteLn;
for i:=1 to p3 do
begin
for j:=1 to p4 do
begin
if (b[i,j]='1')  then
Write('b' ,i, j, '      ')
else Write('   ',b[i,j],'       ');
end;
WriteLn;
end;
if (p2=p3)  then
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 (k<>p2)  and  (m<>0)  then write(f1,' + ') ;
Write(f1,'a',i,k,'x','b',k,j);
m:=m+1;
end;
end;
WriteLn(f);
m:=0;
end;
end;
Reset(f1);
for i:=1 to p1 do ReadLn(f1,d); 
ReadLn(f1,d); 
for i:=1 to p3 do ReadLn(f1,d); 
ReadLn(f1,d); for i:=1 to p1 do begin
for j:=1 to p4 do begin
ReadLn(f1,c[i,j]); end; end;
m:=0;
for i:=1 to p1 do 
begin
for j:=1 to p4 do 
begin
if (m<Length(c[i,j]))  then 
m:=Length(c[i,j])+2; end; end;
WriteLn;
WriteLn('Poluchennaya matrica ñ (',p1,'x',p4,'):'); WriteLn;
for i:=1 to p1 do begin
for j:=1 to p4 do begin
if (c[i,j]= '')  then begin
for t:=1 to (m div 2)  do 
Write('   ');
write('0');
for i:=1 to  (m-((m div 2)+1))  do 
Write('   ');
end 
else 
begin
if (Length(c[i,j])=m)  or (length(c[i,j])=(m-1))  then Write(c[i,j]) 
else 
begin
k:=m-Length(c[i,j]); 
for i:=1 to (k div 2)  do 
Write('   '); 
Write(c[i ,j]);
for t:=1 to  (m-(k div 2)-Length(c[i,j]))  do
Write('   '); end; end; end;
WriteLn; end;
Rewrite(f1); for i:=1 to p1 do begin
for j :=1 to p2 do begin
if (a[i,j] = '1') then Write(f1,'a',i,j,'  ')
else Write(f1,' ',a[i,j],'  '); end;
WriteLn(f1);
end;
WriteLn(f1,'   ');
for i:=1 to p3 do
begin
for j:=1 to p4 do
begin
if (b[i,j] = '1')   then
Write(f1, 'b',i,j,'     ')
else Write(f1,'   ',b[i,j],'       ');
end;
writeLn(f1);
end;
WriteLn(f1,'   ');
for i:=1 to p1 do
begin
for j:=1 to p4 do
begin
if (b[i,j] = ' ')  then
begin
for t:=1 to  (m div 2)  do
Write(f1,'   ');
Write(f1,'0');
for t:=1 to  (m-((m div 2)+1))  do
Write(f1,'   ');
end
else
begin
if (Length(c[i,j])=m)  or  (Length(c[i,j])=(m-1)) then Write(f1,c[i,j])
else
begin
k:=m-Length(c[i,j]);
for t:=1 to (k div 2)  do
Write(f1,'   ');
Write(f1,c[i ,j]);
for t:=1 to (m-(k div 2)-Length(c[i,j]))  do
Write(f1,'   ');
end;
end;
WriteLn(f1);
end;
end;
close(f1);
readln;
end;
end;
end.