Напишите программу, которая строит "квадрат" из знаков '*' заданного размера. используйте процедуру. на языке 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

100 кбайт = 100 * 8 = 800 кбит

800 : 1024 = 0,78125 мбит

0,78125 : 100 = 0,0078125 сек