Дана последовательность A1,..,A40. Получить последовательность B1,..,B40 которая будет отличаться от исходной тем, что все четные элементы удвоены — Pascal(Паскаль)

uses
  Crt;
const
  N = 10;
var
  i: integer;
  a,b: array [1..N] of integer;
begin
  ClrScr;
  Randomize;
  WriteLn('Array A: ');
  for i := 1 to N do
  begin
    a[i] := Random(8) - 4;
    if odd(a[i]) then 
      b[i] := a[i]
    else
      b[i] := a[i] + a[i];
    Write(a[i], ' ');
  end;
  WriteLn;
  WriteLn('Array B: ');
  for i := 1 to N do
    Write(b[i], ' ');
  ReadLn
end.