var f,f2:text;
    i,n:longint;
    a:longint;
begin
assign(f,'ssm.in');
assign(f2,'ssm.out');
reset(f);
readln(f,n);
for i:=1 to n do
 begin
  read(f,a);
 end;
close(f);
rewrite(f2);
close(f2);
end.