Эти функции нельзя просто так сократить, надо для каждой состовляетть таблицу истинности, затем только используя определения логических функций сокращать их.
Это не ответ, но как подсказка думаю сойдёт.
var i: integer;
begin
for i:=80 downto 10 do
if(i mod 11=0) then writeln(i);
end.
Это алгоритм скорее всего
Решение прикрепил скрином, ну и конечно для развития скажу вам, фут это 0,3м а не 0,45. Я так понял в этой задаче поставили 0,45 что-бы не так было просто загуглить.
4.
Условие: время >=19.00ч.
Действие: «Зайти домой» или «Играть
дальше»
5.
Циклический:
6.
Входные данные: а, b, c
Результат: p = 10