Program Lloyd;
varx,y,z: real;
begin
y:=(((30*4)-30)/3)*365;
write('nakopleniya Pole za god = ', y);
readln (y);
<span>end.</span>
X - количество вагонов, тогда вероятность того, что выбора купейного вагона p = x/28
I = log(2){1/(x/28)} =2
28/x =4
x =7
Ответ: 7 купейных вагонов
...
if twinkies <100 then write('Слишком мало');
if twinkies >500 then write('Слишком много');
end.