СРОЧНО!напишите процедуру,которая принимает параметр-натуральное число N и выводит на экран квадрат( ну конечно же заполнен изнутри тоже) из звездочек со стороной N

procedure sq(n: integer);var i, j: integer;begin    for i := 1 to n do    begin        for j := 1 to n do            write('*');        writeln();    end;end;var n: integer;begin    readln(n);    sq(n);end.