Submission #3882268

---

Source Code Expand

var
 n,i,x,y,t:longint;
 a:array[0..20] of longint;
begin
 readln(n);
 for i:=1 to 10 do
  a[i]:=i;
 for i:=0 to n-1 do
  begin
   x:=(i mod 5)+1;
   y:=(i mod 5)+2;
   t:=a[x];
   a[x]:=a[y];
   a[y]:=t;
  end;
 for i:=1 to 6 do
  write(a[i]);
end.

Submission Info

Compile Error

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

Judge Result