F = B∨(C& ¬A) ∨ (A&B)
Решите умоляяяю

program nazvanie;
var a,b,b1,k,k1:integer;
begin   
 write('Введите трехзначное число: ');   
  readln(a); 
   b:=a; 
   while b<>0 do     begin        b1:=b mod 10; 
    if b1 mod 2=0     then       k:=k+1          else      k1:=k1+1; 
 b1:=b div 10; 
   b:=b1; 
 end; 
   if k>k1        then         
write('Кол-во четных цифр больше, чем нечетных в числе ',a)
else if k<k1          then   write('Кол-во нечетных больше, чем четаных в числе ',a);
end.   
Немного переделать и будет рабочая прога!

1. Частота дискретизации 32 кГц означает, что каждую секунду в каждом канале звука делаются и запоминаются 32000 отсчета уровня звукового сигнала. Разрешение 16 бит = 16/8 = 2 байта означает, что хранение одного такого отсчета требует 2 байта. Если файл стереофонический, у него два канала. Таким образом, чтобы сохранить одну секунду звучания потребуется 32000×2×2 = 128 000 байт = 128 000 / 1024 = 125 Кбайт памяти.
2. Если файл занимает 3500 Кбайт, то время его звучания составит
3500 / 125 = 28с

ответ: 28с