Question

Напишите программу, которая строит "квадрат" из знаков '*' заданного размера. Используйте процедуру.

Входные данные
Входная строка содержит единственное натуральное число – длину стороны квадрата N .

Выходные данные
Программа должна вывести заполненный квадрат размером N × N , состоящий из знаков '*'.

Answer 1

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

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

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