С(паскаль) вычислить отношение количества цифры 5 к количеству цифры 1 (если цифры 1 нет, результат не вычислять)

begin

 var n:=ReadlnString('Введите натуральное число:');

 var r:BigInteger;

 if not BigInteger.TryParse(n,r) then

   Print('Некорректная запись')

 else

 begin

   var k5:=n.Where(c->c='5').Count;

   var k1:=n.Where(c->c='1').Count;

   if k1>0 then Print(k5/k1)

 end

end.

Введите натуральное число: 23476587043021143411395684657323634254554

1.5