uses crt;
var n,i,e,f:integer;
begin
write('nhap 2 so la kich thuoc hinh: ');
readln(n,i);
for e:=1 to n do
begin
for f:=1 to i do write('*');
writeln;
end;
for e:=1 to n do
begin
for f:=1 to i do if ((e=1) or (e=n) or (f=1) or (f=i)) then write('*')
else write(' ');
writeln;
end;
readln;
end.