СРОЧНО!напишите процедуру,которая принимает параметр-натуральное число N и выводит **...

Question

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

Answer 1

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.