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.