Составить блок схему алгоритма: дано a, b, c найти кол-во четных чисел

1. с клавиатуры вводим 3 числа [a,b,c]

2. делим на 2 каждое чило и отбрасуем целую часть и записуем в новые переменные ответ ( a mod 2 = a1, b mod 2 = b1, c mod 3=c1)

3. дальше идет условие: если a1 = 0, то выводим на экран сообжение ("число а - четное), если же не = 0, то выводи (" число а - не четное"). такую операцию проделуем со всеми переменными.

Pascalabc.net 3.4.2, сборка 1880 от 18.11.2018 внимание! если программа не работает, обновите версию!

procedure bubblesort(a: array of integer);

// простая пузырьковая сортировка  

begin

  var n: =a.length;

  for var i: =n-2 downto 0 do

    for var j: =0 to i do

      if a[j]> a[j+1] then swap(a[j],a[j+1])

end;

begin

  var a : = arrrandom(readinteger('n='), 1, 100);

  a.println;

  bubblesort(a);

  a.println

end.

пример n= 15 57 80 80 45 91 12 98 95 55 77 54 62 46 32 60 12 32 45 46 54 55 57 60 62 77 80 80 91 95 98

var

    i,n, pol: integer;   //pol - количество положительных чисел, n - количество всех чисел

    a,s: real;   //a- вводимое число, s - сумма положительных чисел

begin

  pol: = 0;   //обнуляем счетчик

  s: = 0;  

  writeln('введите количество чисел');

  readln(n);

  for i: = 1 to n do

  begin

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

    readln(a);

    if a > 0 then

    begin

      s: = s + a;

      pol: = pol + 1;  

    end;

  end;

  writeln('среднее арифметическое положительных чисел:   ', s / pol);   {среднее арифметическое равно сумме чисел делить на их количество}

end.