СРОЧНО!напишите процедуру,которая принимает параметр-натуральное число 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 звёздочек:****************}