Напишите программу, которая строит "квадрат" из знаков '*' заданного размера. используйте процедуру. на языке pascal. , !

Вот ваш pascal : | var  n,i,j: longint; procedure square(a: longint; ); begin    for j: =1 to a do write('*');   writeln; end; begin   readln(n);   for i: =1 to n do square(n);   end

3+3-3: 3=5

3-3+3+3=6

3: 3+3+3=7

3*3-3: 3=8

3*3*3: 3=9

3* 3+3: 3 = 10