Pascal
Modified: Wednesday, 22-12-2021 07:00 AM
Vẽ hình chữ nhật rỗng
var i,j,m,n:byte;
begin
readln(m,n);
for i:=1 to m do
begin
for j:=1 to n do
if (i=1)or(j=1)or(i=m)or(j=n)then write('*',#32)
else write(#32#32);
writeln;
end;
readln;
end.