Скласти програму знаходження суми цілих додатних чисел кратних 4 і менше 50

Program zadacha; const c = 4;   max = 50; var a, b: integer; begin a : = c; while a < max do begin if a mod c = 0 then b : = b + a; a : = a + 1; end; writeln('сума чисел, кратних ', c,  '  і менше ', max,  ' становить ', b); readln; end.

Const   n = 20; var   pos,neg: integer;   i,k,x: integer;   ev,un: integer;   a,b: array [1..n] of integer; begin   for i : = 1 to n do     read(a[i]);     k : = 0;   pos : = 0;   neg : = 0;     for i : = 1 to n do     begin         ev : = 0;     un : = 0;         x : = a[i];         if x < > 0 then       if x > 0 then         if (x < pos) or (pos = 0) then           pos : = x         else       else         if (x > neg) or (neg = 0) then           neg : = x;         x : = abs(x);         while x < > 0 do       begin       if odd(x) then         un : = un + 1       else         ev : = ev + 1;       x : = x div 10       end;         if un = ev then       begin       k : = k + 1;       b[k] : = a[i]       end         end;   writeln(pos,' ',neg);   for i : = 1 to k do     write(b[i],' ')   end.

X- количество монет у     i y -   количество монет у   ii 1-ая партия:   i     x+y/2 ;         ii  y-y/2=у/2 2-ая партия:   i   (x+y/2)/2     ii   y/2+(x+y/2)/2=y*3/4+x/2 3-я партия:   i  (x+y/2)/2+1/2(y*3/4+x/2)=x*3/4+y* 5/8                       ii   y*3/8+x/4 cистема: x*3/4+y*5/8=28 (x/4+y*3/8)=12   решение этой системы:     х=24   y=16 ответ 24 монеты у первого; 16 монет у второго