Дано число А, если А положительное то делим на 2, в противном случае умножаем на 2, состовте программу

Вес разрядов справа от точки равен основанию системы в степени -1, -2, -3 ... итд (то есть 2^(-n),  где n- номер разряда считая от первого справа от запятой).
Напишу веса разрядов начиная от первого справа от запятой, и далее, по порядку:
Двоичная система: 2^(-1)=1/2,  2^(-2)=1/4,  2^(-3)=1/8,  2^(-4)=1/16 ... итд
Восьмеричная: 8^(-1)=1/8,  8^(-2)=1/64,  8^(-3)=1/512  ... итд
Шестнадцатеричная: 16^(-1)=1/16,  16^(-2)=1/256,  16^(-3)=1/4096 ... итд

Вес разрядов слева от точки равен основанию системы в степени 0, 1, 2, 3 ... итд (то есть 2^(n-1),  где n- номер разряда считая от первого слева от запятой).
Напишу веса разрядов начиная от первого слева от запятой, и далее, по порядку:
Двоичная система: 2^0=1,  2^1=2,  2^2=4,  2^3=8 ... итд
Восьмеричная: 8^0=1,  8^1=8,  8^2=64  ... итд
Шестнадцатеричная: 16^0=1,  16^1=16,  16^2=256 ... итд

Var mass:array[1..20] of integer;
var i:integer;
var sum: integer;
begin
Randomize;
sum:=0;
for i:=1 to 20 do begin 
mass[i]:=Random (46) - 25;  write(mass[i],' '); 
end;

for i:=1 to 20 do 
if (i mod 2 = 0) then   
 sum+=mass[i];
writeln('Summa chetnih elementov: ', sum);

var kolTwo:integer;
kolTwo:=0;
for i:=1 to 20 do 
if (mass[i] = 2) then   
kolTwo+=1;  
writeln('Elementov = 2 - ', kolTwo);

for i:=1 to 20 do 
 if (mass[i] > 0) then   
mass[i] := 0;   
writeln('Noviy massiv ');
for i:=1 to 20 do 
write(mass[i],' ');
end.