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

По русски, алг, нач, нц,кц, кон

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