Составьте алгоритм, где вводиться десять элементов массива, и каждый увеличивается на 3

Var 
mas: array [0..9] of integer;
i,n:integer;
begin
n:=9;
for i:=0 to n do 
begin  mas[i]:=3*I; 
write(mas[i],' '); 
end;
end.