Viết chương trình tạo một hình chữ nhật rỗng bằng dấu '*' với chiều dài và chiều rộng được nhập từ bàn phím.

uses crt;

var i, j, dai, rong : integer;

begin

clrscr;

write('Nhap chieu dai, rong : '); readln(dai, rong);

if (dai > 0) and (rong > 0) then begin

for i := 1 to dai do write('*');

for i := 1 to rong - 2 do begin

writeln; write('*');

for j := 2 to dai - 1 do write(' '); write('*'); end;

writeln; for i := 1 to dai do write('*'); end;

readln

end.

Var a,b,i,j: longint;
Begin
        Read(a,b);
        For i:=1 to a do
                Write('* ');
        Writeln;
        For i:=2 to a do
        Begin
                Write('*');
                For j:=2 to b-1 do Write(' ');
                Write('*');
                Writeln;
        End;
        For i:=1 to a do Write('* ');
        Readln
End.