Bài 4:
-------
Const Fi='ISLAN.INP';
Fo='ISLAN.OUT';
Type manga=array[1..3000000] of longint;
Var f,g: text;
A: manga;
n,i,j,vt,z: longint;
Begin
Assign(f,Fi); Reset(f);
Assign(g,Fo); Rewrite(g);
Readln(f,n);
For i:=1 to n do Readln(f,A[i]);
For i:=1 to n-1 do
For j:=i+1 to n do
While A[i]=A[j] do
Begin
vt:=j; n:=n-1;
For z:=vt to n do
A[z]:=A[z+1];
End;
Writeln(g,n);
For i:=1 to n do Write(g,A[i],' ');
Close(f);
Close(g);
End.
