Составить алгоритм для искусственного интеллекта, минимум 4-5 уточняющих во

program xxx;

   var i, n : integer;

                     s : real;

                   a : array [1..20] of real;

begin

 writeln('введите размерность массива n=');

 readln(n);

 write('введите элементы массива а: ');

 for i: =1 to n do

       readln(a[i]);

 writeln('исходный массив а: ');

 for i: =1 to n do

       writeln(a[i]);

 s: =0;

 for i: =1 to n do

     if a[i] mod 2 = 0 then s: =s+a[i];

 writeln('сумма четных элементов =', s);

 readln

end.