Які оператори використовуються в запитах? в програмі Access​

Например печь  дымовое отверстие  подполье для хранения овощей: картофель,свёкла,морковь. когда заходишь в избу всегда видишь подкову ,её вешали для того что бы в дом не заходила плохая энергетика и что б в дом шло только богатство и удача так же делали обряды и в наше время люди верят что нужно рисовать на колодах крестики углём,что бы не заходила так же плохая энергетика  кровля была сделана из черепиц или соломы  , а под крышей засыпали сеном( сухая трава)(так же там жили куры и спали жильцы дома, когда к ним приезжали желанные гости) дом был без окон , внутри была печь в ней варили, жарили, сушили травы(лечебные) был отдел где люди спали,когда была зима (печи достигали   пол метра- в ширину. в высоту такие печи достигали 1,2 метра

{1} var       i, n, s: integer; begin       i : = 0;       writeln('введите последовательность чисел,оканчивающихся отрицательным числом');       repeat               readln(n);               if n > 0 then begin                       s : = s + n;                       i : = i + 1;               end;       until n < 0;       writeln(s / i); end. {2} var       i, n: integer; begin       i : = 0;       writeln('введите последовательность чисел,оканчивающихся 0');       repeat               readln(n);               if n < > 0 then                       i : = i + 1;       until n = 0;       writeln(i); end.