2. Напишите процедуру с параметрами n (целое число) и a (символ), выводящую на экран n строк, каждая из которых содержит n символов a.

Вариант на языке Pascal:

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

В стандартном Pascal функцию StringOfChar можно заменить вложенным циклом:

procedure PrintSquare(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;

Внешний цикл формирует n строк, а внутренний — по n символов в каждой строке.