uses crt;
var a,b,i,kt:longint; h:string;
begin
clrscr;
repeat
write('Nhap chieu dai, chieu rong: ');readln(A,b);
h:='';
for i:=1 to a do begin h:=h+' '; write('='); end; writeln;
for i:=1 to b-2 do writeln('=',copy(h,1,length(h)-2),'=');
for i:=1 to a do write('='); writeln;
write('Ban co muon tiep tuc(1:co; 2:khong): ');readln(kt);
until kt=0;
readln
end.