Напишите процедуру,которая принимает параметр-натуральное число n и выводит на экран квадрат из звездочек со стороной n

Procedure astSquare(n: integer);
var i, j: integer;
begin
  for i := 1 to n do
  begin
    for j := 1 to n do 
      write('*');
    writeln();
  end;
end;

{
Для теста:
begin
  astSquare(4);
end.
Программа выведет 16 звёздочек:




}