program Hello;
var n,i,j:integer;
begin
writeln('Введите размер квадрата: ');
readln(n);
for i:=0 to n-1 do begin
writeln(' ');
for j:=0 to n-1 do write('o');
end;
end.
program Hello;
var n,i,j:integer;
begin
writeln('Введите размер квадрата: ');
readln(n);
for i:=0 to n-1 do begin
writeln(' ');
for j:=0 to n-1 do write('o');
end;
end.