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.