编辑代码

var a,b,i,j:integer;
begin
  readln(a,b);
    for i:=1 to a do 
      for j:=1 to b do 
      writeln('=','''',i,'.',j,'.','''','!$A$1');
end.