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

Procedure square(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
square(5);
end.