uses crt;
var d,r,i:longint;
begin
clrscr;
write('Nhap chieu dai: ');readln(d);
write('Nhap chieu rong: ');readln(r);
for i:=1 to d do write('*'); writeln;
for i:=1 to r-2 do
begin
gotoxy(1,3+i); write('*');
gotoxy(d,3+i); write('*');
end;
gotoxy(1,2+r);
for i:=1 to d do write('*'); writeln;
readln
end.
/////////////////////////////////////
Test: