program bt;

var

        m,n,i,j:integer

begin

          write('Chieu dai: '); readln(n);

          write('Chieu rong: '); readln(m)

           for i:=1 to m do write('*');

           for i:=2 to n-1 do

           begin

                    for j:=1 to m do if (j=1) or (j=m) then write('*') else write(' ');

                    writeln;

          end;

           for i:=1 to m do write('*');

           readln;

end.

#Chuc_ban_hoc_tot

#Vote_minh_5_*_nha

#Xin_tlhn

uses crt;

var i, j, a, b : integer;

begin

clrscr;

write('Nhap chieu dai, rong : '); readln(a, b);

for i := 1 to a do write('*');

for i := 1 to b - 2 do begin writeln; write('*');

for j := 2 to a - 1 do write(' '); write('*'); end;

writeln; for i := 1 to a do write('*');

readln

end.