Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

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