Составить программу , определяющую в каком из данных двух чисел больше четных цифр,

Vb. dim counta as integer dim countb as integer        dim x as integer        dim a as integer        dim b as integer        a = inputbox("введите а")        b = inputbox("введите b")         for x = 1 to len(cstr(a))             if cint(mid(cstr(a), x, 1)) mod 2 = 0 then counta += 1         next         for x = 1 to len(cstr(b))             if cint(mid(cstr(b), x, 1)) mod 2 = 0 then countb += 1 '   c2fbefeeebede8eb3a20caf3eff0e8ffedeee220c42ec52e2028632920442d6d6f6e3535         next         if counta = countb then msgbox("количество четных цифр в двух числах равно")         if counta > countb then msgbox("в первом числе количество четных цифр больше") else msgbox("во втором числе количество четных цифр больше")

1)ввод чисел в массив: program vvod_mass; vara: array[1..12] of integer; i: integer; begin for i: =1 to 12 do begin write('a[', i, ']='); readln(a[i]); end; end.2)program otric; vara: array[1..10] of integer; i,n: integer; begin randomize; for i: =1 to 10 do begin a[i]: =-10+random(21); writeln(a[i]); end; for i: =1 to 10 do if a[i]< 0 then inc(n); write('кол-во отрицательных чисел массива: ', n); end.3)program chetniy; vara: array[1..8] of integer; i,n: integer; begin randomize; for i: =1 to 8 do begin a[i]: =-10+random(21); writeln(a[i]); end; for i: =1 to 8 do if a[i] mod 2 = 0 then inc(n); write('кол-во отрицательных чисел массива: ', n); end.

program treygolnik; var a,b,c: real; begin write('1 сторона треугольника: '); readln(a); write('2 сторона треугольника: '); readln(b); write('3 сторона треугольника: '); readln(c); if (a< b+c) and (b< a+c) and (c< a+b) then begin writeln('треугольник с данными сторонами построить можно'); if ((a=b) and (b< > c) and (a< > c)) or ((b=c) and (c< > a) and (b< > a)) or ((a=c) and (a< > b) and (c< > b)) then writeln('этот треугольник равнобедренный'); end else writeln('треугольник с данными сторонами построить нельзя'); end.