var a: array of integer; n, i, j, min, m: integer; b: boolean; begin read(n); setlength(a, n); m := n - 1; for i := 0 to m do begin read(a[i]); end; min := 32767; for i := 0 to m do begin if min > a[i] then min := a[i]; end; for j := 2 to min do begin b := true; for i := 0 to m do begin b := (a[i] mod j = 0) and b; end; if b = true then break; end; writeln; if b = false then writeln('Vzaimno prostiye.') else writeln('Ne vzaimno prostiye.'); end.