// PascalABC.NET 3.1, сборка 1239 от 08.05.2016
begin
var a,b:real;
Write('Введите два числа через пробел: ');
Read(a,b);
if a*b>0 then Writeln('Числа одного знака')
else Writeln('Числа разных знаков')
end.
224
Полный адрес маски: 255.255.224.0
Var c,x,y: real;
begin
readln (x);
readln (y);
if x>y then
c=x*y
else
c=x+y;
print c
end.
Общее количество возможных вариантов = 11 (на первой остановке может выйти 0, 1, 2, ... или 10 пассажиров).
Искомая ёмкость = log(2)11 ≈ 3,46