Определить, во сколько раз количество элементов «сигнал» превышает количество элементов «шум».

begin
  var Buffer:= 0;
  var Collection:= ReadString('Input your collection by _:').Split(' ').Where(x -> x.Length > 0).Select(x -> begin
                                                                                      if integer.TryParse(x, Buffer)
                                                                                      then
                                                                                        result:= Buffer
                                                                                      else
                                                                                        result:= -1;
                                                                                    end).Println('; ');
  Writeln('Some Text Out:', (Collection = nil) or (Collection.Count() = 0) ? 'SILENCE' : Collection.Where(x -> x < 0).Count() = 0 ? 'UNREAL' : Collection.Where(x -> x <= 0).Count() = Collection.Count() ? 'HELL' : (Collection.Where(x -> x <= 0).Count()/Collection.Count()).ToString());
end.

begin
  var t := ReadString().ToWords(' ').Select(StrToFloat).TakeWhile(x -> x <> 0).Partition(x -> (x > 0) and (Frac(x) = 0));
  writeln(t[0].Count = 0 ? 'HELL' : t[1].Count = 0 ? 'UNREAL' : (t[0].Count / t[1].Count).ToString('N3').PadLeft(7, '0'));
end.