// Программа на паскале
var
  s: string;
  k, i: integer;
begin
  readln(s);
  k := pos(',', s);
  if (k < 2) or (k = length(s)) then writeln('No')
  else
  begin
    for i := 1 to length(s) do
      if (i k) and ((s[i] '9')) then
      begin
        writeln('No');
        exit
      end;
    writeln('Yes');
  end;
end.

Примеры работы программы:
Ввод   Вывод
1,6          Yes
123,        No
,49          No
0,758     Yes