Question

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

Answer 1

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 звёздочек:
****
****
****
****
}