программа :формирует массив содержащий 15 случайных целых чисел принадлежащих промежутку [0..8] и прибавлчет 1 а нечётное умножает на 2

vara:array[1..15] of integer;c,e:real;i:integer;beginrandomize;for i:=1 to 15 do begin a[i]:=random(9); end;for i:=1 to 15 do begin  e:=a[i] div 2;  c:=a[i]/2;   if a[i]=0 then write(a[i],' ')   else   begin   if e=c then    begin     c:=a[i]+1;     write(c,' ');    end       else    begin     c:=a[i]*2;     write(c,' ');    end;    end; end;end.