Даны целые числа n, a1,…,an, где n≤100. Получить последовательность b1,…,bn, которая отличается от исходной тем, что все элементы с нечетными значениями удвоены, и определить количество четных элементов — Pascal(Паскаль)

uses CRT;
Type
    T=array [1..100]of integer;
Var l,m,n,i,x:integer;
    b,a:T;
Function  F(n:integer; a:t; var b:t; l:integer):integer;
    BEGIN
For i:=1 to n do
     begin
     if not odd(a[i]) then begin inc(l);   end; end;
       For i:=1 to n do  begin
       if odd(a[i]) then a[i]:=a[i]*2;
     b[i]:=a[i];
     writeln;
      writeln('b[',i,']=',b[i]);  end; writeln('L=',l);
End;
 
 Begin
    CLRSCR;
    Randomize;
    writeln('Zadaite kol-vo elementov massiva');
    readln(n);
     L:=0;
     For i:=1 to N do begin write('a[',i,']=');
      readln(a[i]);
       end;
      M:=F(n,a,b,l);
      readln;
      end.