Найти алгоритм программы! мне нужно найти алгоритм! программа: var a: array[1..100] of integer; ind: array[1..100] of integer; i,n: integer; c: integer; begin randomize; writeln('n='); readln(n); for i: =1 to n do begin a[i]: =random(6); write(a[i]: 4); end; writeln; c: =0; for i: =1 to n do if a[i] mod 2 =0 then begin c: =c+1; ind[c]: =a[i]; end; if c< > 0 then begin writeln('4ethbie: '); for i: =1 to c do write(ind[i]: 5); end else writeln('4ethbix het'); readln; end.