Составьте программу, которая...

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

 

Program Frank;
const n=15;
Type mas=array[1..n] of integer;
var a:mas;i:integer;
begin
for i:=1 to n do begin
a:=random(8);
write(' ',a);
end;
for i:=1 to n do begin
if a mod 2=0 then a:=a+1
else a:=a*2;
write(' Получили ',a);
end;
end.
end.