Const Sz = 5; // Размер массива
var
a: array [1..Sz] of integer:=(2,4,6,8,10);
N: integer; // Количество элементов в массиве
i: integer;
begin
N:=5;
for i:=1 to N do
begin
if (a[i] mod 4)=0 then
a[i]:=i
else
a[i]:=a[i]*2;
end;
write('Вывод элементов массива: ');
for i:=1 to N do
write(a[i],' ');
end.