Давайте разберем, как написать программу на языке Pascal, которая создает квадрат из символов '*' заданного размера, используя процедуру. Мы будем следовать нескольким шагам, чтобы достичь этой цели.

Сначала нам нужно определить процедуру, которая будет отвечать за рисование квадрата. Процедура будет принимать один параметр — размер квадрата.

Затем мы создадим основную программу, которая будет запрашивать у пользователя размер квадрата и вызывать нашу процедуру.

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

Теперь давайте посмотрим на код:

program SquarePattern;

procedure DrawSquare(size: Integer);
var
  i, j: Integer;
begin
  for i := 1 to size do
  begin
    for j := 1 to size do
    begin
      write('*');  // Рисуем символ '*'
    end;
    writeln;  // Переход на новую строку после завершения строки квадрата
  end;
end;

var
  n: Integer;
begin
  write('Введите размер квадрата: ');
  readln(n);  // Считываем размер квадрата от пользователя
  DrawSquare(n);  // Вызываем процедуру для рисования квадрата
end.

• program SquarePattern; — это название нашей программы.
• procedure DrawSquare(size: Integer); — здесь мы определяем процедуру, которая принимает один параметр — размер квадрата.
• for i := 1 to size do — внешний цикл, который отвечает за количество строк квадрата.
• for j := 1 to size do — внутренний цикл, который отвечает за количество символов в каждой строке.
• write('*'); — выводим символ '*' без перехода на новую строку.
• writeln; — после завершения внутреннего цикла мы переходим на новую строку.
• var n: Integer; — объявляем переменную для хранения размера квадрата.
• readln(n); — считываем размер квадрата, введенный пользователем.
• DrawSquare(n); — вызываем процедуру для рисования квадрата с заданным размером.

Теперь, когда вы запустите эту программу, она запросит у вас размер квадрата и нарисует его из символов '*'. Убедитесь, что вы вводите положительное целое число, чтобы программа работала корректно.