trên đời ko gì là ko thể làm được. mọi ng` giúp e cái

[gyghung]

lập chương trình nhập từ bàn phím chiều dài và chiều rộng cua 1 hình chữ nhật, sau đó in ra màn hình hình chữ nhật đó bằng các dấu *. ví dụ hcn có chiều dai la 6 chiều rộng là 4 => in ra màn hình ta sẽ được:
* * * * * *
* ...........*
* ...........*
* * * * * *

[Long_Phung]

Bài này chỉ dùng For lồng for đơn giản thôi mà!
Bạn xem lại cú pháp for lồng for, ngay ở mấy bài ví dụ.
Mình nghĩ với những bài đơn giản, mình tự làm, sau đó nếu lỗi mà không xử lý được thì mới cần tới trợ giúp.
Bởi lập trình cần Tư duy, nếu lười tư duy thì theo mình nên tránh xa nó, trừ khi là bắt buộc phải vượt rào...

[Heroboss12]

var cd,cr,i,j:integer;
begin
readln(cd);
readln(cr);
for i:=1 to cr do
for j:=1 to cd do
if (i<>1) and (i<>cr) then
begin
if (j=1) or (j=cd) then write('*')
else write('*');
end
else write('*');
readln;
end.

[lehang_gb1]

Var d,r,i,j:integer;
Begin
write('Nhap vao chieu dai, chieu rong cua hinh chu nhat:');
Readln(d,r);
{Ve canh tren cung}
For i:=1 to d do write('*');writeln;
{Ve hai canh ben}
For j:=1 to r-2 do writeln('*',' ':d-2,'*');
{Ve canh duong cung}
For i:=1 to d do write('*');
Readln
End.