Дана сумма начисленной заработной платы вычислить подоходный налог 12% 1% на профсоюзный налог 1% на пенсионный налог полученную сумму на руки вывести на экран

var    s: real;
begin
    readln(s);   
    s := s - (0.12 + 0.01 + 0.01) * s;
    writeln('Сумма : ', s);
end.

Задача сформулирована не корректно, т.к. недостаточно информации о формировании сообщения.

В случае если мы передаём значение 15 то сообщение будет размером 1111 бит.

В худшем случае минимальное сообщение будет иметь размерность 100000 бит

В лучшем случае сообщение может быть представлено как поток 2битных сообщений. Максимальная длина потока будет равна 32 сообщениям. В случае оптимистичного прогноза успех может произойти на первом сообщении. Таким образом мы считаем номер в потоке и значение бита. Если значение == 1 то в этом вагоне находятся друзья.

Если вы утром собираетесь выходить из дома, то актуальная информация - сколько градусов на улице, неактуальная - сколько процентов голосов набрал Уго Чавес на первых выборах (оно вам надо знать с утра пораньше?) .
Достоверная информация - например, дата рождения в вашем паспорте, недостоверная - тетя Маня сказала, что ее двоюродная прабабка родилась 13 мая, но у тети Мани склероз и маразм и никаких документов от прабабки не осталось.
Объективная - это платье черного цвета, необъективная - вам кажется, что оно вам не идет.
Полная - Москва - столица России, неполная - коты бывают рыжие и белые (можно дополнить серыми, черными и т. п. - поэтому неполная)
Полезная - формулы сокращенного умножения на экзамене по математике, бесполезная - сообщение в СМИ о весе и росте наследника британского престола.
Понятная - Петербург в советское время назывался Ленинградом, непонятная - Васиной собаке дали СС (в принципе, для меня - владелицы чистопородного племенного кобеля - очень даже понятная, а вот для человека, далекого от собачьих выставок - нет).