Втаблице запросы и количество страниц, которые нашел поисковый сервер по этим запросам в сегменте интернета.

калина 435к
щавель 880к
калина | лук 1385к
щавель | лук 1325к
калина | щавель 1315к
лук | калина | щавель 1535к

сколько страниц (в тысячах) будет найдено по запросу лук& щавель?


если не сложно, с решением​

program gh;

    var a: array[ 1..10] of integer;

                i: integer;

begin

  for i: =1 to 10 do

        begin

              a[i] : = random(20) + 20;

              write(a[i]);

        end;

end.

если есть д ш и в то это не куб а параллелипипед

var 

a,b,c,r: real;

begin

readln(a,b,c,r);

if (2*r< a) and (2*r< b) and  (2*r< c)

then writeln('поместится')

else writeln ('не поместится');

end.

для куба достаточно одного условия (2*r< a) 

program xxx;   var a, b, min : integer; begin  write('введите число а=');  

    readln(a);

  min: =10;   while a < > 0 do      begin            b: = a mod 10;             if b < min then min: =b;             a: = a div 10      end;     writeln('минимальная цифра = ', min);   readlnend.

решение на