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

40-1=40 ніг буде без капітана

15-1=14 голів буде без капітана

40/2=20

20-14=6 котів було на кораблі