Viết chương trình in ra màn hình hình chữ nhật được phủ kín các kí tự * có chiều dài và chiều rộng được nhập từ bàn phím
2 câu trả lời
uses crt;
var x, y, i, j : integer;
begin
clrscr;
write('Nhap chieu dai va chieu rong = ');
readln(x, y);
for i := 1 to y do begin
for j := 1 to x do write('*');
writeln; end;
readln
end.