Вероятность, того, что подошел автобус №25=1/2⁴=1/16
автобус №13 подходит к остановке в два раза реже, т.е. его вероятность 1/32. Следовательно 1/2⁵, 5 бит информации
Program ufhg;
uses crt;
var a,b,c,d, m: integer;
begin
readln(a,b,c,d);
m:=a;
if(b>m) then m:=b;
if(c>m) then m:=c;
if(d>m) then m:=d;
writeln(m);
end.
Var
b:integer;
begin
readln(b);
case b of
0:
writeln('Нуль');
1:
writeln('Один');
2:
writeln('Два');
3:
writeln('Три');
4:
writeln('Четыре');
5:
writeln('Пять');
6:
writeln('Шесть');
7:
writeln('Семь');
8:
writeln('Восемь');
9:
writeln('Девять');
end;
<span>end.</span>