procedure Rectangle(Width: integer);
var i: integer;
begin
  for i := 1 to Width do write('*');
  writeln;
  if width <> 1 then write('*');
  writeln('*':Width-1);
  for i := 1 to Width do write('*');
end;

var
  N: integer;
begin
  write('N = ');
  readln(N);
  Rectangle(N);
end.