Дан масив из 12 целых чисел вывести исходный масив и получить новый элементы которого увеличены в 4 раза

Program massiv;

uses crt;

const a:array[1 ... 12] of byte = (1,3,2,3,0,9,4,5,6,7,8,2) ;

var i:byte;

b:array[1 ... 12] of byte;

begin

clrscr;

write ('Isxodnui massiv: ') ;

for i:=1 to 12 do

begin

write (a[i]:4) ;

b[i]:=a[i];

end;

writeln;

Write ('Novui massiv: ') ;

for i:=1 to 12 do

begin

b[i]: = b[i]*4;

write (b[i]:4) ;

end;

readln;

end.