n,*a=$<.map(&:to_i);b=0;puts (0...n).all?{|i|(b-b=a[i])**2==1}?:T: :F