Вычислить значение: z = (5+a)/(7-y) нужно сделать алгоритм

Если паскаль, то program znach; var z, a, y: real; begin readln(a,y); z: =(5+a)/(7-y); writeln(z); end.

Так как в корзине 4 груши и 12 яблок, то вероятность достать грушу составляет 4/16 = 1/4 (для яблока 12/16 = 3/4). если существует n равновероятных событий, то вероятность каждого отдельного события равна p=1/n. применяя формулу:   2 в степени i  = n = 1/p получаем i = 2 бита.