Напишите программу, которая строит "квадрат" из знаков '*' заданного размера. используйте процедуру. входные данные входная строка содержит единственное натуральное число – длину стороны квадрата n . выходные данные программа должна вывести заполненный квадрат размером n × n , состоящий из знаков '*'.

// PascalABC.NET 3.3, сборка 1627 от 27.01.2018
// Внимание! Если программа не работает, обновите версию!

procedure ЗачемТутПроцедура(n:integer);
begin
  MatrFill(n,n,'*').Println(1)
end;

begin
  ЗачемТутПроцедура(ReadInteger('n='))
end.