Напишите программу, которая в последовательности натуральных чисел определяет количество неотрицательных четных чисел. (написать нужно на языке basic)​

Var       n, i, k, sum, t: integer; begin       readln(n);       k : = 0;             for i : = 100 to 999 do       begin               t : = i;               while t > 0 do               begin                       sum : = t mod 10;                       t : = t div 10;               end;               if sum = n then k : = k + 1;       end;             writeln(k); end.

Как я поняла, нужно было использовать кусок кода, данный выше? var    a: array[1..10] of integer;   imax, i: byte; begin  writeln('массив: ');   randomize;   for i: =1 to 10 do    begin      a[i]: =random(100);       write(a[i]: 4);     end;   imax : = 1;   for i: =2 to 10 do    if a[i] > a[imax] then imax : = i;   writeln;   writeln('максимальный элемент = ', a[imax]: 3, ' в позиции ', imax: 2); end.