составьте алгоритм и программу для увеличения каждого элемента массива в 2 раза

var a,b,col:integer;    arr:array [0..100] of integer;    beginwriteln('введите длину массива');readln(col);for b:=1 to col do beginwrite ('введите элемент массива ==> '); readln(a);a:=a*2;arr[b]:=a;end;for b:=1 to col do beginwriteln('изменённый элемент массива ==>  ',arr[b]);end;end.