

Nhập vào 2 sô N,M in ra hình chữ nhật bằng ký tự # có kích thước NxM [pascal]
Input: 2 số N, M là số hàng và số cột
Output : Gồm N hàng , mỗi hàng có M ký tự # viết liền nhau.
var m,n,i,k:word;
begin
write(n, m);
read(n, m);
for i:=1 to n do
begin
for k:=1 to m do
write('#');
end;
readln;
end.
Input: 2 số N, M là số hàng và số cột
Output : Gồm N hàng , mỗi hàng có M ký tự # viết liền nhau.
var m,n,i,k:word;
begin
write(n, m);
read(n, m);
for i:=1 to n do
begin
for k:=1 to m do
write('#');
end;
readln;
end.