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

Program Program1;vara:array [1..8] of integer;i:integer;s:string;beginrandomize;writeln('Исходный массив:');for i:=1 to 8 dobegina[i]:=random(7);writeln('a[',i,']=',a[i]);end;for i:=1 to 8 doif a[i] mod 2 = 0 thena[i]:=a[i]*3elsea[i]:=a[i]+2;writeln;writeln('Преобразованный массив:');for i:=1 to 8 dowriteln('a[',i,']=',a[i]);end.

var a:array [1..8] of integer;i:integer;beginfor i:=1 to 8 doread(a[i]);for i:=1 to 8 doif (a[i]) div 2 = 0 then a[i]:=(a[i])*3else a[i]:=a[i]+2;for i:=1 to 8 dowriteln(a[i]);end.

тока добавь что числа в промежутке [0..6]