Submission #3334042

---

Source Code Expand

var
 n,i,j:longint;
 a:array[0..101,0..101] of char;
begin
 readln(n);
 for i:=1 to n do
  begin
   for j:=1 to n do
    read(a[i,j]);
   readln;
  end;
 for i:=1 to n do
  begin
   for j:=n downto 1 do
    write(a[j,i]);
   writeln;
  end;
end.

Submission Info

Compile Error

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

Judge Result