Напишите программу, которая вводит с клавиатуры пятизначное число и удаляет из него первую и последнюю цифру, а затем выводит на экран полученное трехзначное число. например, из числа 12345 должно получиться число 234. строки не использовать.

Var a: longint;
begin
readln(a);
a: =a mod 1;
a: =a div 10;
writeln(a);
end.

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