Ответ:

Предположим, что требуется процедура на Pascal. Во внешнем цикле выводятся строки, во внутреннем — символы в каждой строке.

procedure Pryamougolnik(n: integer; a: char);
var i, j: integer;
begin
  for i := 1 to n do
  begin
    for j := 1 to n do
      write(a);
    writeln;
  end;
end;

Видимый фрагмент не показывает начало условия, поэтому восстановить остальные возможные требования нельзя.