Question

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

Answer 1

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.