Составьте программу , которая с тремя произвольными числами a, x и z , введенными с клавиатуры, производит вычисления по следующим формулам: во вложении.

// pascalabc.net 3.2, сборка 1399 от 08.03.2017 // внимание! если программа не работает, обновите версию! begin   var s: =readreal('площадь решета равна');   var a: =readarrreal('введите диаметры клубней: ',10);   var d: =sqrt(4*s/pi);   var b: =a.where(x-> x< d);   var n: =b.count;   if n> 0 then begin       write('пройдут клубни диаметром '); b.print;       writeln(' - всего ',n,' шт.')       end   else writeln('ни один клубень не пройдет') end. пример площадь решета равна 45 введите диаметры клубней: 8.6 7.1 9 10.2 6.4 5 6 8.2 6.6 7 пройдут клубни диаметром 7.1 6.4 5 6 6.6 7 - всего 6 шт.

A    b       a and b    ¬a       or not a         ¬b           and not b 0     0           0             1             1               1               1 0     1           0             1             1             0                 0 1     0         0             0               0             1                 0 1     1         1             0               1             0               0