Радио.ну это только если не со всеми буквами а так не знаю
Решение - в прилагаемом файле.
(¬Y ∨ X) ∨ (Y ∧ Z) ∧ ¬X
Var
n,b,i,k,r:integer;
begin
readln(n);
for i:=1 to n do
begin
readln(b);
if b>=8 then
begin
k:=k+1;
r:=r+b;
end;
end;
writeln('Количество сдавших:',k);
writeln('Среднее значение:',r/k);
end.
22байта=176бит
15кбайта=117760байт
156=163577856байт
Во вложеном файле программа, которая перераспределяет Х и У