Поскольку в поезде 16 вагонов, то полученное сообщение уменьшает неопределенность в выборе номера вагона в 16 раз и объем полученной информации равен
битам.
Program one;var A, B, x: real;beginwriteln ('Введите А и В');readln (A, B);A:=A+10;B:=B/4;x:=A-B;A:=A*x;Writeln (A);end.
X=432
Пример на VBA Excel
Код программы можно посмотреть нажав Alt+F11
Var
a, b, c: integer;
begin
read(a, b, c);
writeln('P = ',a * b * c);
writeln('S = ',a + b + c);
writeln('A = ',(a + b + c) / 3);
end.