Даны две переменные целого типа: a и b. если их значения не равны, то присвоить каждой переменной большее из этих значений, а если равны, то присвоить переменным нулевые значения. вывести новые значения переменных a и b.

prograbid(большее из 2-х чисел);

var a,b,c: integer;

  begin

  readln(a,b);

  if a> b

  then c: = a

  else c: =b;

writeln(c);

end

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