составьте программу, которая формирует массив, содержащий 10 случайных целых чисел, принадлежавших промежутку [0;7], и преобразует элементы массива по следующему правилу: к чётному числу прибавляет 3,а к нечётное умножает на 4

Program Program1;vari:integer;a:array [1..10] of integer;beginrandomize;writeln;writeln('Массив до преобразования:');for i:=1 to 10 dobegina[i]:=random(8);write(a[i],', ');end;for i:=1 to 10 doif a[i] mod 2 = 0 thena[i]:=a[i]+3elsea[i]:=a[i]*4;writeln;writeln('Массив после преобразования:');for i:=1 to 10 dowrite(a[i],', ');end.