Определите, каких чисел в массиве больше: которые делятся на первый элемент массива или которые делятся на последний элемент массива. программа c++, составить проект.​

Var m,h,a: integer; begin        writeln('vvedite chislo m');         readln(m);         writeln('vvedite chislo h');         readln(h);         if m mod h = 2   then begin          a: =m div h;           writeln('celaya chast =',a);           end          else writeln('pri "tut dopishi"');           readln; end.

Var b,c: boolean; a: integer; begin readln(a); writeln(not odd(a)); if a mod 10 = 7 then b: =true; writeln(b); writeln(not odd(a mod 10)); end.var r,a: integer; beginread(r,a); if a*a> pi*r*r then writeln('square')else if a*a< pi*r*r then writeln('circle')else writeln('equal'); end.var m1,m2,v1,v2: integer; beginread(m1,v1,m2,v2); if m1/v1> m2/v2 then writeln('p1> p2')else if m1/m2< m2/v2 then writeln('p1< p2')else writeln('p1=p2'); end.var a,b: real; beginread(a,b); b*=0.45; if a> b then writeln(b)else if a< b then writeln(a)else writeln('equal'); end.