uses crt;
var i, j, dai, rong : integer;
begin
clrscr;
write('Nhap chieu dai, rong : '); readln(dai, rong);
if (dai > 0) and (rong > 0) then begin
for i := 1 to dai do write('*');
for i := 1 to rong - 2 do begin
writeln; write('*');
for j := 2 to dai - 1 do write(' '); write('*'); end;
writeln; for i := 1 to dai do write('*'); end;
readln
end.