Проверьте, является ли частное от деления суммы произвольных пяти чисел, введенных с клавиатуры, на разность двух последних из них целым числом. составить блок систему и qbasik

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

Uses crt; var a, b, c, n, i, j : integer;     s : array [1..10000] of integer; begin     clrscr;     writeln ('vvedite razmer masiva');     read (n);     writeln   ('vvedite chislo x');     read (a);     for i: =1 to n do      begin          writeln ('vvedit s[', i, '] element');           read (s[i]);       end;     for i: =1 to n do          for j: =1 to n-1 do            if s[j]< s[j+1] then              begin                  b: =s[j];                   s[j]: =s[j+1];                   s[j+1]: =b;               end;     for i: =1 to n do      begin          write (s[i], ' ');           if s[i]=a then inc (c);       end; writeln; if c> 0 then writeln ('3adanoe chislo prisytstvyet') else writeln('3adanoe chislo otsytstvyet'); end. p.s. надеюсь на и лучший ответ.