12,45
Объяснение (см. также на приложенном скрине):
1) старшие два разряда числа X равны 10, потому что в числе Y эти разряды равны нулю, а логическая сумма (операция ИЛИ) равна 10 (чтобы получить единицу- хотя бы один из входных разрядов должен быть равен единице; ну а ноль можно получить только если оба они равны нулю).
2) Во втором разряде чисел X и Y должен стоять ноль (т.к. лог. сумма равна нулю).
3) Так как в числе X должно быть четыре единицы в разрядах, то проставляем оставшиеся три (т.к. других свободных разрядов для них нет).
4) Находим оставшиеся разряды числа Y по логическому произведению (операция И) и разрядам числа X (чтобы получить единицу- оба входных разряда должны быть равны единице, чтобы получить ноль- хотя бы один из них должен быть равен нулю).
Получили: 
Переводим в десятичную систему счисления:
Записываем, как указано в задании (в порядке возрастания, через запятую, без пробела): 12,45
var
a:array[1..35] of integer;
b,c,d:integer;
i:real;
Begin
for b:=1 to 35 do
a[b]:=random(49)+132;
for b:=1 to 35 do
write(a[b],' ');
writeln;
for b:=1 to 35 do
if a[b]>159 then c:=c+1;
for b:=1 to 35 do
if a[b] mod 3=0 then write(b,' ');
writeln;
for b:=1 to 35 do
if a[b]>d then d:=a[b];
writeln(d);
for b:=1 to 35 do
i:=i+a[b];
i:=i/35;
writeln('Средний рост: ',i:0:3);
end.