нарисовать что-то в нем
(Например квадрат )
С цифр

var n,i,j:integer;

begin

 writeln('введите длину стороны квадрата');

 readln(n);

 for i:=1 to n do write(1);

 writeln;

for i:=1 to n-2 do

begin

  write(1);

  for j:=1 to n-2 do

  write(' ');

  write(1);

  writeln;

end;

for i:=1 to n do write(1);

end.