read*,i print*,trim(merge("Yes","No ",i>=400)) end