Submission #3383591

---

Source Code Expand

var
i,j,c,d,e,b,n,m:longint;
a:array[1..100,1..100] 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 j:=1 to n do
 begin
 for i:=n downto 1 do 
write(a[i,j]);
writeln;
end;
end.

Submission Info

Compile Error

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

Judge Result