Сказка полнастью выдумка а былина на половину там есть правда история и есть сказка

На тарелке лежат апельсины. Сначала из неё взяли половину всех апельсинов и половину апельсина, затем половину остатка и ещё половину апельсина. Наконец, ещё взяли половину нового остатка и половину апельсина.

Вирусы атаковали диск. Первый вирус уничтожил половину всей информации содержащейся на диске и еще полгигабайта. Второй - половину оставшейся информации и еще полгигабайта, третий - половину оставшейся информации и еще полгигабайта и т. д.

В классе был опрос, кому какой вопрос нравиться, 18 детей сказали математика, 20-английский, 15-история. 6 детей сказали, что любят и математика и английский, 4 ребенка - математика и история, 5 - английский и история.

Имеется четыре A, B, C, D произвольных числа. ЭВМ должна ответить на вопрос: Правда ли что ... ? Первое число самое маленькое. Ответ должен выходить на экран в виде текста: правда, неправда

Помогите подправить задачу Pascal. Условие: Даны наименования трёх газет и три фамилии подписчиков. Определить, выписывает ли Петров газету "Правда". Мое решение: program z3; var A:array[1 ... 3] of string; var B:array[1 ...