Найти кол-во 3х-значных чисел у которых сумма цифр является чётным числом? pascal

var

i, a, b,c, s : integer;

begin

s: = 0;

for i: =100 to 999 do

begin

a: = i div 100;

b: = (i - a * 100) div 10;

c: = i mod 10;

if ((a + b + c) div 2 = 0) then

s: = s + 1;

end;

writeln (s);

end.

на компе нету паскаля, если что-то неработает пиши

p.s. нравится решение ? отметь как лучшее!

program raf105;

var a,b,sum,nsum,nkol: integer;

sari: real;

begin

write('введите число: ');

readln(a);

while a< > 0 do

begin

  b: = a mod 10;

  a: = (a-b) div 10;

  sum: = sum+b;

  if (b mod 2)< > 0

    then  

    begin

      nsum: = nsum+b;

      nkol: = nkol+1;

    end;

end;

sari: = nsum/nkol;

writeln('сумма всех цифр в числе: ',sum);

writeln('среднее арифметическое нечётных цифр в числе: ',sari);

end.

язык программирования pascalabc

program raf105;

var fam,pol: array[1..100] of string;

n,i: integer;

begin

write('введите количество детей: ');

readln(n);

writeln('вводите фамилии и пол (заглавной буквой м/ж)');

for i: =1 to n do

begin

  writeln;

  write('[',i,'] ','фамилия: ');

  readln(fam[i]);

  write('     пол: ');

  readln(pol[i]);

end;

writeln;

writeln('фамилии девочек начинающиеся на "а" и мальчиков заканчивающиеся на "в"');

for i: =1 to n do

  if (fam[i][1]='а') and (pol[i]='ж') or (fam[i][length(='в') and (pol[i]='м')

    then writeln(fam[i]);

end.

язык программирования pascalabc