program ideone;
var
  nums:array[1..5] of byte;
  i: byte;
 
procedure checkNum(var a: byte);
var t: byte;
begin
  t := trunc(a/10);
  if t = (a-t*10) then writeln('NO') else writeln('YES');
end;
 
begin
readln(nums[1], nums[2], nums[3], nums[4], nums[5]);
for i:= 1 to 5 do checkNum(nums[i]);
end.