Submission #1869004

---

Source Code Expand

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils,StrUtils;
var
  i,j,n:Integer;
  s:array of string;
begin
  try
    { TODO -oUser -cConsole Main : ここにコードを記述してください }
    Readln(n);
    SetLength(s,n);

    for i := 0 to n - 1 do
      Readln(s[i]);

    for i := 0 to n - 1 do begin
      for j := n-1 downto 0 do begin
        Write(s[j][i+1]);
      end;
      Writeln;
    end;
    Readln;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.

Submission Info

Compile Error

/usr/bin/ld.bfd: warning: ./link.res contains output sections; did you forget -T?

Judge Result